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Il y à des sagas qui ne se racontent pas. Elles se vivent. 
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Pour passer les longues 
soirées d'hiver à la lueur 
glauque de l'écran de votre 
micro, alimenté par le groupe 
électrogène que vous vous 
êtes résolu à acheter, cette 
livraison de TEO renferme des 
programmes et des TEOtrucs 
accessibles à tous. 


Ces programmes émanent de 
nos lecteurs et nous souhai- 
tons en publier davantage 
pour le bénéfice de tous. 
Aussi, sortez de vos tiroirs vos 
bouts de programme, vos 
trucs et astuces divers, meitez 
le tout sur une disquette ou à 
défaut sur une cassette en 
précisant le type de votre 
machine et vos coordonnées, 
accompagnées d'une note 
descriptive. 


Pas de complexe, votre travail 
intéresse certainement 
d’autres lecteurs qui 
d’évidence ont également 
quelques programmes que 
vous enviez. 


Alors à bientôt dans TEO. 
Jacques ELTABET. 
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Editeur graphique 


L'extramoniteur 


CHRONIQUES 


Sur son stand à Amstrad 
Expo, Loriciels élevait un 
château à frois niveaux 
d'où était présenté Bob 
Winner (sur Amsfrad ef 
compatibles PC], un Jeu 
d'arcade ef d'aventure 
de la nouvelle 
génération. 


Fondation 


Mannesmann Tally 
Prix littéraire 


Mannesmann Tally, le premier constructeur 
européen d'imprimantes informatiques, réunira le 
12 février l'informatique et la créativité littéraire 
pour décerner un prix au meilleur ouvrage de 
fiction dans lequel l'outil informatique est mis en 
scène. 


Le lauréat recevra un don de 100 000 F, en 
présence des membres du jury. composé de huit 
personnalités : Igor et Grichka Bogdanoff. 
Chochana Boukhobza, Annette Colin-Simard, 
Jean-Luc Fromental, Bernard Lenteric, Joël de 
Rosnay. Jean A. Vergnes. Dix romans ont été 
sélectionnés auprès de 250 maisons d'édition 
contactées : Vatican Ii de Thierry Breton, La 
stratégie “Ender“ d'Orson Scott Card, Ora : cle de 
Kevin O'Donnel, L'univers en Pièce de Claude 
Ecken, Neuromancien de William Gibson, Comte 
Zéro de William Gibson, Et la lune battait son 
plein de Mariella Righini, California Roll de Roger 
L. Simon, Alintel de Jacques Vallée, La mémoire de 
Markov de Jacques Vallée. 
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Mannesmann Tally 
présente à la presse ce 
nouveau prix liftéraire. 
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Loriciels, S. À. 
L’anonymat 


Loriciels poursuit son ascension. Depuis septembre, nous avions déjà signalé 
des changements : emménagement à Rueil dans des locaux où son équipe 
prend ses aises, création d'un département distribution, Loridif, pour être 
plus prêt des revendeurs et des utilisateurs. Avec 87, c'est une nouvelle 
étape : après trois ans d'existence, Loriciels devient Société Anonyme. Le 
conseil d'administration est composé de trois personnes : Laurant Weill 
(Président Directeur Général), Marc Bayle (Directeur Général), Philippe 





Seban (Directeur de la communication). 
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Revue À. E. L. 
3° numéro 


Dix logiciels sont proposés pour le numéro 3 de 
cette revue. Le dossier Elèves comportent des 
programmes prévus pour une utilisation 
immédiate en classe. Ils sont fournis sur une 
cassette double face (MO5/T07). Au programme 
sont présents les mathématiques, le français, la 
technologie, pour les classes de primaire et de 
collège. On trouve également un utilitaire à 
insérer dans les logiciels conçus par les 
enseignants. 


Un livret pédagogique accompagne la cassette et 
précise, pour chaque logiciel : son objectif 
pédagogique, son niveau d'utilisation, son 
fonctionnement et l'équipement nécessaire 
(crayon optique, module particulier...). 
L'abonnement annuel est de 910 F pour recevoir 
plus de 70 logiciels dans l'année. Nolpa, 78 A rue 
de Sèvres, 75341 PARIS Cédex 07. 
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mettons sets, 


Micmath 
Un utilitaire 
mathématique 


Philippe Rivière est déjà 
connu pour son logiciel 
“Atout langues”, primé 
par l'Education 
Nationale. Aujourd'hui il 
vous propose un 
utilitaire mathématique 
“Micmath”. Ce logiciel 
est disponible sur 
disquette 35 pouces 
(gamme TO) au prix de 
60 F; d'autres versions 
sont en préparation : 
Calcul d'intégrales, de 
fonctions dérivées et 
régressions autres que 
linéaires. Micmath est 
composé de trois 
programmes interactifs : 
Fonctions qui porte sur 
les graphes de fonctions 
et les résolutions 
d'équations; Suites 
récurrentes vous offre 
une représentation “en 
escalier” de la 
convergence des suites: 
le troisième est un 
programme de 
régression linéaire. Pour 
tous renseignements : 
Philippe Rivière, 3 rue 
de l'Aumônerie, 49000 
BOUCHEMAINE. 
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Images digitalisées 


La Société Christian Fournier, spécialisée dans la 
digitalisation d'images, a pour objectif la création 
de banques d'images digitalisées sur TO7/70 et 
TO. Ce système s'adresse essentiellement aux 
enseignants et créateurs de logiciels souhaitant 

” intégrer des images dans leurs programmes. Les 
disquettes fournies par cette société permettent 
de rappeler, de copier, d'imprimer, voire de 
modifier sous Colorpaint, les images stockées. 


gi Christian Fournier propose dès à présent un jeu 
. d'arcade à caractère éducatif “Pharaons”, dont le 
thème est la visite des sites de l'Egypte ancienne. 
L'intérêt de ce jeu réside bien évidemment dans la 
qualité des graphismes. Pour tous 
renseignements, Informatique Christian Fournier, 
: La Georges Recipon, 75019 Paris, tél, 42 38 
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Securicom'87 
La sécurité informatique dévoilée 


SECURICOM'87, 5e congrès mondial de la 
Protection informatique, se déroulera du 3 au 6 
mars à l'Hôtel PLM Saint-Jacques à Paris. Pendant 
ces quatre journées, le mot d'ordre sera la 
sécurité : logiciels, produits, méthodes. exposés en 
permanence, feront frémir les fraudéurs. Venus 
du monde entier, les experts seront présents pour 
présenter les nouveautés inédites. 




















Ordipuces 
Les occasions de mars Radio 


Durant le week-end des 14 et 15 mars, les 
Parisiens pourront acheter ou vendre leur 


également responsable 
d'un club informatique, 


Bretagne vous propose : revue de 


presse, anlayses de 






matériel informatique d'occasion. Organisé par 
Ordipuces, cette foire à la brocante informatique 
se tiendra près de la Porte de Versailles : salle 
Danton, rue Danton à Vanves de 13 h à 19h. 
L'entrée est gratuite pour les acheteurs; les 
particuliers qui souhaitent vendre doivent louer 
un emplacement. Les tarifs : 70 F à 100 F pour 
une journée et 130 à 180 F pour les deux jours 
(réduction pour les adhérents Microtel). Pour 
tous renséignements, contacter François-Xavier 
DELMAS au 1/45 44 70 23 ou 24. 


L'informatique 
au programme 


Les Bretons qui écoutent 
RADIO MENE (sur 101. 
6 MHz) sont privilégiés : 
tous les mercredi entre 
13 et 17 heures, une 
émission est consacrée 
à l'informatique. 
Guénaël Louër, 





logiciels et de livres pour 
Thomson MOS5, 
dossiers, petites 
annonces, assistances, 
recherche d'auteurs de 
logiciels pour les 
sociétés. Vous pouvez 
afdresser vos 
propositions à Guénaël : 
6 rue du Porhoët. 
22230 Merdrignac. 
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Erlc Le Bel nous consellle 


l'orlginaltté des 


graphismes. À voir... 


L'ANNE 


DE TOUS LES CHANGEMENTS 


Pour rentrer boire un coup, 
choisis un _pseudo: sssceousss + ENVOI 
L'explication du Pr Choron: ER 


Le serveur bête et méchant 





Harakiri 
Revue de presse en dessins 


Si la version papier de ce titre n'atteint 
plus les sommets d'humour qu'on a pu 
lui connaître ces dernières années, la 

Si version télématique d'Harakiri reste elle 
aussi un modèle de graphismes et de 
fraîcheur. Les plus déprimés trouveront 
du réconfort à lire l'horoscope, les plus 
mortifiés à jouer aux jeux proposés et les 
plus inhibés à sélectionner parmi les 150 
coktails celui qui correspond le mieux à 
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leur état. Mais en fait, le clou graphique 
de ce serveur consiste en une revue de 
presse-dessin de l'année écoulée. Plus de 
400 dessins d'auteurs comme Gébé, 
Wolinski, Vuillemin, Thouron ou Willem 
ont en effet été transposés sur écran 
vidéotex, et le plus surprenant reste 
qu'on reconnaît parfaitement leur style, 
voire même leur trait (et leur humour, 
bien entendu). Cette revue de presse 
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MINITEL, LES ECRANS S'ANIMENT 





évoluent, les services du 

Minitel aussi. À ce titre, 
l’année qui commence s’an- 
nonce d'ores et déjà décisive 
complexification des serveurs, : 
simplification des commandes : 
pour l'utilisateur, vitesse d’affi 
chage-écran supérieure, 
connexions avec la micro-infor: 
matique, l’évolution touche tou 
les domaines. 


Mais encore faut-il que le côté : 
visuel de cet outil s'améliore ! 
Nous sommes donc allés ce 
mois-ci à la recherche des 
services sensés être à la pointe: 
des graphismes télématiques, : 
ceux où la B.D. est reine. : 
Bonne nouvelle ! Les écrans 
s’animent. 


Te les technologies 













reste dans le monde du Minitel le plus 
gros effort réalisé sur le graphisme 
(quantitativement et peut-être 
qualitativement). 


À savourer le sourire aux lèvres. 


COGE F'ACCES : nn HARAKIRI 
Animation : 


TA DISME nn nu: 


Les grands noms sont sur CIRCUS. 





Circus 
Grand prix du graphisme 


Les afficionados de bande dessinée 
connaissent peut-être déjà ce mensuel 
entièrement consacré au septième art et 
plus particulièrement axé sur des auteurs 
publiés par la maison d'édition Glénat. 
Par contre, ce qu'ils ne savent sans doute 
pas, c'est que ce mensuel est 
accompagné d'un serveur télématique de 
très haute tenue qui s'est vu décerner le 
prix Hermès 1986 de la plus belle 
conception graphique. 

À voir ce qu'a réalisé Eric Le Bel, le 
graphiste maison, on se dit que les 
contraintes du vingt-quatre lignes par 
quarante colonnes (norme du Minitel) ne 
sont pas si limitatives que ça. Il nous a 
d'ailleurs assuré que l'année à venir 
verrait des innovations graphiques 
énormes qui contribueront certainement 
à faire la sélection dans les serveurs (voir 
interview en page Suivante). 


La passion de la bande dessinée a poussé 
les créateurs de Circus à mettre au point 
le serveur le plus complet sur la question. 
À côté des services classiques de 
messageries, de boîte aux lettres et de 
présentation du mensuel, on trouve en 
effet une bourse aux B.D. de collections, 
un concours pour tous les amateurs de 
bombage avec à la clé la publication d'un 
album couleur des meilleurs envois, ou 
encore un service de documentation sur 


1986, vue ef dessinée 


la B. D. Plus récemment, on peut aussi 
dialoguer avec de grands auteurs de B. D. 
comme Gillon, Juillard, Bourgeon ou 
Adamov par l'intermédiaire d'une boîte 
aux lettres spéciale. Enfin, et pour que la 
boucle soit bouclée, c'est aussi sur Circus 
qu'ont eu lieu les premières expériences 
de bandes dessinées animées 
télématiques : des expériences qui 
risquent là aussi d'aboutir à de véritables 
dessins animés avec scénarios et héros 
originaux. 


Bref, si le meilleur reste à venir, ce 
serveur de Circus constitue néanmoins la 
plus belle approche qu'on puisse faire 
d'un service où le graphisme n'est pas 
tenu pour cinquième roue du carrosse. À 
voir donc, absolument. 






— CIRCUS 


took 


Code d'accès : 
Animation : … 
Graphisme : …... 





L’Echo des savanes 
Un écho sans portée 


Autre phare de l'humour sur papier 
glacé, ce mensuel a défini son serveur 
télématique par le slogan “Exotique et 
chic, Erotique et choc” (les publicitaires 
appellent d'ailleurs ça le Syndrome de la 
RATP). Nous vous conseillons néanmoins 















TELEMATIQUE 
































d'économiser les deux minutes de 
connexion nécessaires et suffisantes 
pour faire le tour de ce serveur qui n'en 
vaut vraiment pas la peine : une 
messagerie, une boîte aux lettres, le 
sommaire du mensuel et un service 
“Graffiti”. On s'attendait quand même à 
mieux, d'autant que ces quelques pages 
ne sont même pas réussies 
graphiquement : le flop télématique du 
moïis. 


Code d'accès : … 


Animation : 
Graphisme : 


Piftel 
Un grand pour les petits 


Pour les plus jeunes, les héros immortels 
de PIF sont également accessibles par 
Minitel. Ils pourront donc retrouver leurs 
amis Léo, Hercule, Pifou et bien sûr Pif 
lui-même aux détours d'un serveur très 
complet (infos, jeux, boîte aux lettres, 
messagerie, adresses, histoires et 
renseignements “Ecole-bahut") dont la 
conformation n'a rien à envier aux 
serveurs pour les “grands”. 
Malheureusement, si on voit quelquefois 
apparaître la bobine d'un des héros 
précités, le graphisme a été en grande 
partie laissé de côté au profit de l'écrit. 
C'est d'autant plus dommage qu'on 
s'adresse ici aux jeunes, traditionnelle- 
ment plus réceptifs à l'image. 





Code d'accès : 
Animation : 
Graphisme : 
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INTERVIEW D'ERIC LE BEL 
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par le prix Hermès de la 

meilleure réalisation 
graphique sur Minitel, pour son 
travail sur “Circus”, Eric Le Bel 
est l’un des graphistes les plus 
en pointe du moment. TEO se 
devait de recueillir son avis sur 
l’image télématique. 








TEO : Comment êtes-vous venu 
au graphisme vidéotex ? 


Eric Le Bel : Toute ma forma- 
tion technique se résume en un 
stage de quinze jours au club 
Microtel de Caen. C'est tout. Le 
reste a été appris sur l'écran ou 
plutôt face à lui. 


TEO : Existe-t-il des écoles tech- 
niques spécialisées dans la télé- 
matique ? 


E. L. B. : Assez peu à l'heure 
actuelle et en tout cas en déca- 
lage par rapport au milieu pro- 
fessionnel, les informaticiens du 
privé ou de l'administration ne 
connaissant le plus souvent pas 
grand chose des problèmes spéci- 
fiques à la télématique. Il y a par 
contre des stages privés mais je 
ne les connais pas tous. 


TEO : Que pensez-vous du panorama % 


actuel de la télématique ? 


E. L. B. : J'espère qu'en 1987 ça va 
enfin décoller, parce que ce n'est pas 
beau beau pour l'instant. Déjà, j'at- 







arriver très vite au bout des ressources techniques 
de ce média, ce qui confèrera aux services une 
certaine ressemblance (même si à court terme 
cette avance technique fera la différence). En 
d'autres termes, le Minitel est techniquement limi- 
té, ce qui restreint notre créativité pour les B. D. 
comme pour le reste. 


TEO : Quels sont vos serveurs préférés ? 


E. L. B.: Le serveur de ZERO, pour les images 
comme pour les idées, MIC1 (par le 31. 74. 49. 
14) en réseau commuté. et LIBE pour les infos. 
Mais en fait, j'attends encore le serveur idéal... 
Pour l'instant, le Minitel n'est à mon avis qu'une 
nouvelle zone érogène alors qu'il mérite bien 
mieux. 




















Propos recuelllis par Alain Laldet 














\ 
— 


tends impatiemment la tarification 
libre du Minitel qui obligera certaine- 
ment les prestataires de service à 




















Spécial Angoulême sur 


; e CIRCUS : à volr aussi 
faire plus beau qu'ils ne font actuelle- | pour l'animation des 
ment. Ensuite, je crois que de nom- Images. 


breuses notions vont évoluer: technique- 
ment bien sûr, comme le scrolling, la 
rapidité d'affichage ou autre, mais sur- 
tout qualitativement, comme les notions 
de messagerie par exemple, qui cesse | 
peu à peu d'être un. dépotoir à fantasmes et s'ouvre à une : 
communication que je qualifierai de “café”... 

.IEO : Vous-même avez créé des sortes de 8. D. vidéotex. 
Croyez-vous que cela-s'étendra ? 


E. L. B. : Non, en raison du coût de la communication et 
des moyens techniques limités. Nous allons sans doute 





Téléphone : 3615 - Code d'accès : CHOK. Tapez : TEO* 
puis ENVO!. Vous découvrirez la PAGE D'ACCUEIL. 
Tapez SUITE pour accéder au SOMMAIRE. 
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Es VISITE GUIDEE PETITES ANNONCES 
Perdu ? Tapez F1 Voulez-vous vendre ? Er 
puis ENVOI acheter ? échanger du FE 
TARNER ERP ges PAGES mamivenT matériel, des logiciels ? 
Adressez votre petite 
annonce ef lisez celles des 
autres utilisateurs de micro. 
RCTUBLIT TE | ) | ] 
Fe “# ACTUALITE COURRIER FSEUES. 
À Pour vous tenir Ecrivez à la rédaction de TEO. DEPART , 
écsa are #1 au courant, tapez F3 CODE 
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puis ENVOI : les news 
de TEO. 


F4 


BOUTIQUE 
Retrouvez le logiciel 


F8 


DIALOGUE 

Dialoguez en direct avec la 
messagerie, Ouvrez une boîte 
aux lettres pour recevoir des 
messages personnels et diffé- 
rés (en indiquant vos nom, 


3, NES que UE 


# 


numéro de département et 


que vous aimez avec la 
code pour fermer votre BAL). 


recherche multi-critères. 


A bientôt sur TEOMATIC 





AVENTURE 


savent, l'aventure est 

risquée. TEO les 
délivre, ce mois-ci 
encore, des méandres 
vertigineux. 


La porte de l'éternité 
(suite) 


La description des quelques objets 
suivants VOUS aidera à commencer. 


GRILLE: Elle recouvre un 
puits qui peut regorger de 
trésors 

PUITS : Prenez garde de ne 
pas tomber dedans 


TAPIS: Attention, certains 
cachent une oubliette sans 
fond 


TELEPHONE: N'oubliez pas 
de l'interroger 

AVENTURIER MOURANT : Il 
peut vous fournir un parche- 
min en échange d'alcoo! 


CERCUEIL : Sépuiture de vos 
prédécesseurs malchanceux 


PRINCESSE : Certaines ne 
sont pas totalement désinté- 
ressées 


MINAUTORE : Sa conversa- 
tion peut être très enrichis- 
sante 

LIT : Vous permet de repren- 
dre des forces 


BOUCLIER, HACHE, CIBOIRE : 
Ces armes magiques vous per- 
mettront d'expédier dans un 
autre temps certains MOns- 
tres insensibles 

TAPIS  ANTIGRAVITATIONN- 
NEL : D'un grand secours pour 
fanchir certaines oubliettes 
CORDE : Pour ne pas tomber 
dans le puits 

CHAMPIGNONS : Contiennent 
d'étranges substances modi- 
fiant votre métabolisme 


NITROGLYCERINE : A mani- 
puler avec précautions (explo- 
sif), très utile pour faire sau- 
ter les grilles les plus résistan- 
tes 


L es aventuriers le 
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A, PARCHEMINS : Laissés par 
= vos prédécesseurs: n'oubliez 
SEA pas de les lire. 
KHRONOS : COKTEL VISION 
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Troglodyte Vallée 


Si la Préhistoire vous passionne, vous 
avez aimé “Sapiens”. Mais connaissez- 
vous suffisamment les lois de cet âge de 
pierre pour aider Torgan à survivre ? 
Saviez-vous, par exemple, que les ours 
vivent au sommet de certaines 
montagnes, notamment, sur la grande 
montagne à l'ouest du camp. Lorsque 
Torgan est engagé dans un combat 
dangereux avec Un humain, vous pouvez 
le rompre en appuyant sur la touche 
STOP. Lors d'un échange, vous n'êtes pas 
obligé de donner au personnage 
rencontré ce qu'il demande : Vous pouvez 
aussi lui donner autre chose. Et si vous 
avez encore des difficultés à vous 
adapter à ce voyage dans le passé, vous 
pouvez entraîner Torgan au combat dans 
la vue latérale. quand il n'y a personne 
sur l'écran! 


SAPIENS : LORICIELS 
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Arès 


2HE FAITES vous? 


LES AUTEURS PASSENT AUX AVEUX 


Au pays du tyran A 


Il était une fois un bon royaume, un 
gentil roi, d'honnêtes gens. mais le Mal, 
sous le nom de Yarod Nor, s'abattit sur le 
pays, engendrant la misère, la haine, la 
peur. Quatre héros partent combattre ce 
tyran pour que le pays de Mandragore 
retrouve la paix. Dans cette quête 
quelques conseils sont nécessaires : 
quand un de vos héros perd ses points de 
vie très rapidement (pour cause de 
blessures) et donc va disparaître à plus 
ou moins long terme, il est conseillé de 
transférer tous les objets qu'il possède à 
un de ses compagnons. Autre truc, dans 
le donjon du zodiaque. il est inutile de 
brutaliser les signes, ils sont inoffensifs. 
Chacun vous donnera une indication utile 
qui vous permettra de résoudre l'énigme 
du donjon et de poursuivre votre route. 


MANDRAGORE : INFOGRAMES 


Enquête à la loupe 


Une jeune femme nommée Vera Cruz a 
été trouvée morte dans son 
appartement, tuée par pistolet à bout 
portant. Vous enquêtez sur la mort de 
cette femme et devez prouver s'il s'agit 
d'un meurtre où d’un Suicide. Lors de la 
fouille de l'appartement de Vera, ne 
négligez rien. Vous devez trouver une 
dizaine d'indices dont six sont capitaux 
pour la poursuite de l'enquête. Parfois 
l'indice doit être examiné sous toutes les 
coutures (loupe) pour qu'il révèle son 
secret. Un certain carnet vous donnera 
de nombreuses indications utiles. Toute 
personne a des voisins ne l'oubliez pas] 
Les voisins ont souvent un oeil qui 
dérape ou une oreille indiscrète, c'est 
parfois utile. 


VERA CRUZ : INFOGRAMES 
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Ici revendeur spécialiste 


THOMSON S 
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C'est aussi la 
THOMCARTE : 

la carte de fidélité qui donne 
droit à 5 % de réduction. 


VIDEO 3e 


“ LE THOMSONISTE ” 
LE POIDS DES PROS 





MATERIELS * : 
Unité centrale TO9 + 





TOP! 4 





LE CHOC DES PROMOS 





TO9 + avec moniteur couleur 36 cm haute résolution 
Unité centrale TO8 





Unité centrale MO6 











imprimante PR90-600 haut de gamme 
Cable de liaison PR90-600 MO6/TOB8/TO9/TO9 + 
Lecteur enregistreur K7 TOB/TO9/TO7-70/TO9 + 








+ — Extension MO5 + QDD intégré + fane 
"ne Quick Disk Drive TO7-70/MO5/TOB/MO6 








MARRANT 0 TE Souris TOB/MO6/TO9/TO9 + 
Li CNE MEET M Moniteur monochrome haute résolution 
| Lecteur enregistreur K7 TO7-70/TO8/TO9/TO9 + 








Drive 640 Ko 3“12 TO8 





. Controleur Drive 640 Ko 3“12 TO7-70/MOS 
TRIAL FATAL LEE L'Écrut mafiour onagheome 








Crayon optique TO8/MO6 
Moniteur couleur 36 cm HR 
Moniteur couleur 36 cm BR 














Imprimante à impact 40 col. PR90055 
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SNS EU Ep 
LL TL] 3 
supérieurs à 450 F. (remise comprise). 


samedi 20 décembre 1986 à 15h30. 
@L'heureux gagnant recevra 


Vous qui evez épulsé toutes les ressources de vos logiciels, 
@Le second 


“Dans la limite des stocks disponibles. 
“Nous consulter sur place. Aucun 
prix ne sera communiqué par téléphone. 





Vidéo 32 organise un concours. À partir du 
01.09.86, conservez vos factures d'achats 


Un tirage au sort aura lieu à la Boutique le 


1 T09 avec moniteur couleur 36 HR 





fl 


ll 





C'est aussi le parrainage : 
pour tout parrainage supérieur 
à 2000 F, un logiciel gratuit 
pour le parrain. 





Les 
**k 
LE 
Lis 
Le 
170 F 
550 F 
1290 F 
850 F 
350 F 
1250 F 
550 F 
Li 
490 F 
85 F 
120 F 
2490 F 
2200 F 
790 F 












PROMO NOEL 


TO9 (offre limitée) : TO9 
et moniteur couleur 36 cm 
Haute Résolution s 






TO8 : TOS, cra j 

O6, crayon opti- 
que, Quick Disk Dre, 
logiciels : Vol solo, Vampi- 
re, Initiation au Basic ss 


MO6 : MOG6 Crayon opti 
» ti- 

re une manette de Fe 
Ogicieis : Animatix, BI s 
War, Vol solo ! . 













Pour toute commande par 
correspondance d’une 
configuration TO8, MO6 ou 
TO9 +, livraison sous 4 jours, 
SANS FRAIS DE PORT. 










Des dizaines de logiciels à 


vous en evez falt le tour dans son ensemble. 
Vous voulez vous en séparer III 
Vidéo 32 vous en donne l’occasion. 


D 
Le 01.09.86 Vidéo 32 prend en dépôt tous vos logiciels originaux 
à moitié prix de leur valeur initiale. 
Lors de la revente de vos logiciels, 2 options sont possibles : 
© remboursement en espèces ou en Chèque, (maxi 500 F.) 
(20 francs de frais de participation par logiciel vendu) 
@ échange en Bon d'Achat, valable sur tous matériels et logiciels, 
utilisable à tout moment (sans frais de participation). 
Un relevé de votre compte vous sera remis et vous indiquera 
l'avoir en cours. 
















1 coffret T07-70 

(T07-70 + clavier mécanique + Basic 1.0 + 
2 livres d'initiation + Colorpaint + Cube d'ini- 
tiation Basic + Lecteur enregistreur de pro- 
grammes ainsi qu'un moniteur monochrome 
31cm + cäbie de liaison). 
Cette offre est également valable pour les com 
mandes par correspondance. 


VIDEO 32 est ouvert 7 jours sur 7, 
y compris les jours fériés, de 14h à 20h. 






moitié prix grâce au dépôt- 
vente des particuliers. 








En 6 mois, 1650 Thomsonistes 
ont su nous faire confiance. 
Rejoignez-les … 







Ci-joint mon règlement : Total de ma 
Chèque CCPO mandat [ commande : 


FE Signature E. 


Noter. PrÉNOM 

A SR A 7 

VIE ae . Code Postal 

QE = | PERRET RER Configuration … 

IBEUERERSR ER NO THOMCARTE 


U 1DE O 3e 32 rue de Lancry - 75010 PARIS - Tél : 42 00 14 63 - Métro : J. STE, 








TELETEO 


Ses fonctionnalités 


La connexion : 


Avec TELETEO, connectez votre micro-ordi- 
nateur au Minitel. 


Pour utiliser le Minitel 
avec de Ia couleur 


sur votre micro-Thomson 


La couleur : 


Les pages-écran du Minitel s'affichent en 
couleur sur votre moniteur couleur. 





La sauvegarde : 


Les pages transmises par Minitel peuvent 
être stockées sur cassette ou disquetle. 


Le confort : 


Le clavier de votre micro remplace le 
clavier du Minitel. 


Lo rapidité : 


Vous gagnez du temps pour consulter les 
pages Minitel stockées sur micro! 








T7 7 J Cr Æ'n 
pe ; PAM TRE E 
1 dote Ge 4 24 

4 


PE. M ] LES: PC 
detre pret pen 





Ef; 





Le câble TELETEO se 
branche sur la prise 
magnéto-cassette 
de votre micro. La 











Fiche pratique 


double-prise TELETEO est composé : 
de e d'un côble ; 
simultané sur Minitel A 
et sur le magnéto. e d'une K7 pour MOS, TO07 + 16K, 07/70, TO9, ou d'une 


disquette 3 pouces !2 pour TO9, ou d'une disquette 5 pouces 
Ya pour MOS, TO7 + 16K, TO7/70; 





e d'une notice explicative. 





À DS nt 0 2008 208 00 done GS CG OU PU NS CN EN EE LE GO CN CO AN AE A GR DC UE 2e mm A O7 2 20 CNY MINS UNS US QU AS QU UN (RU (UN GS QU GED RO (RU UN A QU I de 2e 2e 2e O8 me OU PU AD OP ANS A GR A Qu DC Mn pe mu cop nue GE O0 GED GG MN UN ON VON (OO MU mp mue up 2 et QU SU GE M MM Eu à 


BON A DECOUPER 
OUI, je désire acquérir TELETEO 

O Cossette pour MOS, Je vous adresse ci-joint Nom 

TO7 + 16K,TO7/70,109, mon règlement 

ou prix de 100 FF TTC, par chèque à l'ordre Prénom 
D Disquette 3 pouces 12 de MEDIAVENTURE. 

LA PERS Bon à retourner Adresse 
O Disquette 5 pouces }4 nel D Loge 

pour MOS5, 107 + 16k, MÉDIAVENTURE SI TEO 

Le prix de 26, rue Beaubourg, Code postal 
+ Port : 25 FF, 75008 PARIS. Ville 


MICRO-HORIZONS 


Education, PC, micro institutionnelle, langages, Tribune du didacticiel, Intelligence artificielle, technique, programmation... 


Toto un PC XT avec disque dur 
de 20 Mo pour moins 
de 10000 F TIC 


Pour la période des fêtes, la société PGM offrait un 
ordinateur TOTO doté de 256 Ko de RAM et d’un lecteur 
de disque dur de 20 Mo pour moins de 10 000 F TTC. Il 
est possible que cette promotion n'existe plus au 
moment de la sortie de cet article, mais d'autres suivront 
nécessairement, et la brèche ainsi ouverte n'est pas 
prête à se refermer. Il nous a donc paru intéressant 
d'étudier d’un peu plus près cette machine. 

L'appareil de base s'appelle TOTO pour mieux cacher 
par cette boutade une machine assez sérieuse. Il est 
d'un aspect extérieur assez classique avec ses quatre 
emplacements d'accueil pour des lecteurs demi-hau- 
teur. Sur le modèle testé, les deux de droite sont 
occupés par des lecteurs de disquettes 5”1/4 de 360 
Ko. Un des deux autres héberge le disque dur de 20 Mo. 
Ce micro-ordinateur est équipé d'un microprocesseur 
8088 à 4,77 MHz, sa mémoire centrale est de 256 Ko 
extensible à 640 Ko par simple adjonction de compo- 
sants mémoire sur la carte mère (pour un coût d'environ 
850 F). La version testée avait une mémoire de 640 Ko. 
Le clavier AZERTY de 84 touches est assez classique. 
Vu le prix d'un tel appareil, on est toujours curieux de 
découvrir ce qu'il a dans ie ventre d'autant plus que 
l'ouverture en est très simple grâce aux deux ouvertures 
à charnières disposées de part et d'autre du boîtier 
métallique. Ce qu'on peut y découvrir est une bonne 
surprise. Deux places sont disponibles sur l'alimentation 
annoncée à 190 W, ce qui est peut-être un peu juste 
quand on tourne avec ia configuration testée. Sept (oui 
sept !} connecteurs d'extension sont disponibles, ce qui 
est largement suffisant pour les besoins habituels. Le 
disque dur est annoncé avec un temps d'accès très 
moyen de 85 ms, valeur qui se vérifie à l'essai. 
L'appareil est livré en série avec une sortie parallèle 
permetiant de connecter une imprimante. Les autres 
entrées-sorties sont optionnelles et sont donc adaptées 
aux besoins exacts de l'utilisateur moyennant bien sûr 
les suppléments de prix correspondants. L'équipement 
standard comporte une carte couleur CGA, mais un 
complément de 3000 F permet d'opter pour la carte 
EGA. Les logiciels foumis en standard sont MS/DOS et 
GW/BASIC dans des versions 2.x. Les logiciels “classi- 
ques” tournent tous sur ce micro-ordinateur sans aucun 
RER ce que confime COMPATEST qui annonce 

7 %. 


L'ensemble apparaît comme très convenable donnant 
donc un rapport qualité-prix excellent. Même en rajou- 
tant quelques extensions, non comprises dans la version 
de base, on reste dans une gamme de prix allant de 
10000 F à 15000 F pour un appareil doté d'un disque 
dur de 20 Mo, ce qui reste raisonnable. Certains facteurs 
comme la durée de vie. ou la qualité du service après- 
vente ne peuvent bien évidemment pas se mesurer au 
cours d’un tel essai. C’est la part de risque à prendre 
dans un achat de ce type d'appareil. Pour tous rensei- 
gnements complémentaires, il est possible de contacter 
le club PGM au (16-1) 43 49 48 48 ou au 34 bis rue 
Sorbier - 75020 PARIS. 






TERG PC 


THE NEWSROOM 


Les mois qui viennent vont voir la véritable explosion Une option Zoom est disponible également. Dans ies 
du “personal publishing”, c'est-à-dire de l'édition per- travaux photos des commentaires peuvent être Inclus, 
A rs Le ee : démenti la photo recadrée et le tout sauvegardé. 

apporté à Mc LUHAN qui voyait la Galaxie Gutenberg C'est à Ja salle de rédaction que s'écrivent les articies 
tombée dans l'oubli. La réalité est bien différente. réalisés bloc après bloc. Ch polices de caractère 
Grâce à l'emploi massif de l'imprimante laser, bientôt Sont prévus pour l'écriture de l'artice. On dispose 
chaque ordinateur pourra être le cerveau d'une petite même du old english. Les photos sont insérées à ce 
imprimerie. stade de la-réalisation. li reste ensuite à concevoir la 
Ce logiciel est une étape intermédiaire vers ces grands maquette en choisissant l'une des quatre dispositions. 
moments de l'édition. Tout est prévu pour réaliser Pour rendre compte de la réalité, il est possible aussi 
complètement un journal personnel ou de groupe avec d'utiliser un modem et recevoir ou émettre des articles 
non seulement du texte mais aussi des illustrations et ou des photos créés par Newsroom vers un autre 
toutes les facilités de mise en page et d'effets. En fait, micro. Un menu fait choisir parmi les options de 
vous voilà devenu rédacteur en chef, illustrateur, réception d'émission ou de modification des parame- 
maquettiste et Imprimeur. L'intégration complète au tres de communication. 

bout des doigts. Attention ce produit est une initiation Après tout ce travail il est temps de passer à l'impri- 
mais dans le cadre d'une école, d'un groupe, il peut merie et de faire tourner ies rotatives, ou du moins 
rendre de grands services de communication et de Votre imprimante. On choisit l'impression d'une photo, 
pédagogie. d'une manchette, d'un bloc, ou d'une page. Une 
Vous disposez de quatre mises en pages différentes option du menu permet aussi la modification des 
avec blocs (sixième ou huitième de page) etmanchette paramètres d'impression. li reste à dire un mot de la 
et évidemment photos ou plus exactement dessins librairie clip art. Nous l'avons dit, six cents dessins 
déjà conçus ou graphismes originaux. Tout le reste est sont prêts à l'emploi. Ces dessins peuvent être retour- 
le produit de l'imagination. Pour réaliser le journal, le nés. On trouve aussi bien des illustrations d'animaux 
logiciel propose un menu graphique pour sélectionner … que des personnages en situation, des cartes géogra- 
le labo photo, la salle de rédaction, la maquette, la  phiques, des objets variés ou des mots. Tout cela ne 
salle des télex et l'imprimerie. manque pas d'humour. 


amme isquettes : l Alors au total, un produit multi-facettes qui veut rendre 
pp d'édition tps un Re 4 compte d’une réalité professionnelle (réalisation com- 
six cents dessins prêts à être utilisés tels quels ou Plète d'un joua) et d'un souci pédagogique indénier 
modifiés selon vos bescins. C'est au labo photo que ble. Mais surtout ce logiciel préfigure ce à quoi seront 
ces illustrations seront reprises ou encore créées de employés les micros de demain : la publication person- 
toutes pièces. Pour cela une série d'outils graphiques nelle avec toutes ies facilités de graphisme, d'effets, 
permettent de tracer différentes sortes de lignes, des d'édition et surtout d'impression. 
figures ou des remplissages. 
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CD-rom pour les visiteurs 
du prochain Sicob. 


La société Eurequip associée avec CDEROM, Neuron 
Data et CIMAB mettront en place un système d'informa- 
tion associant CD-rom et système expert. 

Le système offrira une recherche sur critères, une vue 
du produit et une fiche produite ainsi que les coordon- 
nées du stand du fournisseur. (1) 47 41 79 19. 


Le voieur de badge 
bientôt sur vos écrans 


Trombinoscope est un système de contrôle d'accès à 
images digitales sur disque optique numérique. Il fonc- 
tionne à base de disque optique numérique, de caméra 
CCD et d’un ordinateur. Attention ce système ne fait pas 
la reconnaissance automatique de la personne, l'habit 
ne fait toujours pas le moine. C'est le gardien qui voit 
apparaître sur un écran le portrait répertorié du visiteur 
après que ce dernier ait introduit son badge d’identifica- 
tion. Plus de vol de badge. Grenat logiciel 98 41 83 46. 


Le secréfaire personnei 


C'est un traitement de texte français qui nous vient 
d'Amérique, du Québec plus précisément. Le “Secré- 
taire Personnel" est édité par la société Logidisque et 
importé en France par Pertech (meuble de bureaux - 
Les trois fontaines - 95000 CERGY). 


Le logiciel principal est accompagné de plusieurs dis- 
quettes d'outils et d'utilitaires pour, par exemple, enrichir 
les textes avec des schémas et des dessins à partir des 
modules contenus dans T-Graph. C'est assez simple 
d'utilisation tant que l’on ne cherche pas à créer des 
dessins trop élaborés. 
Le produit gère des aiphabets différents. Une autre 
disquette permet une vérification orthographique à partir 
d'un dictionnaire qui peut s'enrichir au gré du travail de 
l'utilisateur. 
Contrairement à d’autres outils de ce genre, itne néces- 
site ni disque dur, ni mémoire conséquente pour fonc- 
tionner, Deux versions sont possibles suivant l'ordina- 
teur utilisé : une version 128 Ko et une version 256 Ko 
permettant que le travail se fasse au mieux, directement 
en mémoire centrale. |l est rapide, sans être pour autant 
moins efficace que la plupart de ses concurrents. 
Une troisième disquette, l'adresseur personnel, consti- 
tue un publipostage assez classique pour les traitements 
de texte de cette gamme de prix (environ 3 000 F), 
Enfin, la dernière disquette contient un cours de forma- 
tion à l’utilisation du logiciel. C'est simple à suivre et 
plus efficace que la documentation elle-même qui est 
trop touffue pour qu'on s’y retrouve simplement. 
La saisie d'un texte s'effectue en s'aidant des bandeaux 
situés en haut et en bas de l'écran. Ils indiquent en 
permanence les fonctions et les touches disponibles. Un 
fichier d'aide complète ces premières indications. Tou- 
tes les fonctions classiques sont présentes. L'ensemble 
constitué par “Le Secrétaire Personnel” est sérieux et 
complet. Le cours joint permettant un apprentissage 
facile est certainement son meilleur atout. I! faut noter 
que les fichiers créés sont utilisables par un système de 
gestion de bases de données : “Le Magicien” qui est 
re édité par Logidisque et diffusé en France par 
rtech. 


LOGIDISQUE 


à 


SERVEURS ABC iil 


Cette rubrique est consacrée à la télérmatique à l'école. 
Nous poursuivons noîre enquête avec l'étude 
du centre serveur Cocktel de Métavidéotex 
ef nous vous communiquons l'annuaire parisien 
des serveurs IPT, 


Un serveur 8 parisien : 
Auteuil Senice 45 2452 à5 


La serveur de l'Ecüls Normale d'Auteuil (10 rue Môlitor, 
Paris 16) est un Métavidéatex hult vos sur Goupil 
Gé, Il a étà mis en service la prérisr mars 1986 st 
fonctionne déguls 24 héures aur 24 sans soucrs téchal- 
ques {petit coup de chapeau pour la flabhité du G4). 
SonBeque de 20 Mo abrite un service de 860 pages, 
Ceraines d'entre elles son en aocés réservé, Le 
autrss informen! des expositions, acquisitions du cen- 
ve docusientaire, cOnCOUrS, Stages. Pour ces derniers, 
les bordereaux de salsis ont été mis en action Hour 
la aux Irétiuteurs de s'irecrie aux stages de 
eur choix depuss feu cols cu leu? doriolls, QGutre ses 
services, l'Ecole Normale abrite sur son serveur le 
CAPP te Paris, kg nouveautés PÉCAGOIQUES des 
diteuré, quelques tonnes adresses, des pattes 
armontes et surtout dés pages offertes a toules 163 
écoles parisiennes qui déskaraient émettre des krfor- 
matlons par muritel. Le service “classes transtartées" 
orme à une classe de partir (mer, montagne où 
cempngne, an empèrtant un minitel ai dé déposer sur 
AS. tous tea suis. aux héures Creuses, los nouvelles 
du jour consuliables à domicile par les parents, Enfin 
Auteuf-Sgrylte s'ouvte à certaines expértences telles 
l'université d'été de la ville de Paris (3° âge) ou les 
toloniss de vacances télématisées (Bartavaltes àt8 86, 
IRa de Courheweel, Si vis détiez uré boîte à Istres 
nerscnnele au tanf RTC {ne communltation toutas 
les aix minutes), n'hésitez pas, Autéui-Service vous en 
Propose. 


P. Jablonke 


Compatible ? Oui, mals pour 


quoi 
faire et à quel prix ? Lisez l'article et si 
vous avez encore des questions, 
rejoignez-nous sur TEOmatic. 





TEO No 71 - FEV. 1987 


LS mais prochain : SOS Serveurs an péré et an attenr- 
dent l'annuaire parisien des serveurs [PT : 
JUSTEL (BUT À] nn rmoueus 42 69 75.00 
eu 3614 code JUSTEL 
45 24 59 


AUTEUIL-SEAVICE …. 
ECOLES DU 54 


CORRE ES ne 
KELLER SERVICE 
SOORINEEL ue mes 
F.Q.L CAMBON 


Ne nous ont pas fourni leur numéro d'appel : l'Ecole 
hôtelière de Pars et l'école Château des Rentiars 
Îlgnés non éacoré aMribuées) Si cata Sürvelrs 
parsans ont éta oubhés qu'is nous én axcusent et 
prannent contact avec ls Joumal, nous éro0s paraitre 


un regiPcalt 


CAPP 
titi 
. PARIS 


TEO:N 
No 1 


Il manque exactement 
14 lignes pour finir 
un programme Basic. 

Si elles représentent 10 % 
du travail total, combien de 
lignes ont été déjà écrites ? 

À gagner : 
10 logiciels 











La famille des PRACTIXXX, 
chez FIL 


France Image Logiciel (FIL) qui était auparavant spéciali- 
sée dans les logiciels pour nanomachines Thomson a 
décidé de frapper un grand coup pour son entrée dans 
le monde des compatibles en éditant un ensemble de 
quatre logiciels pour moins de 2 000 F. 


Il s'agit du gestionnaire de base de données PRACTIBA- 
SE, du traitement de texte PRACTITEXTE, du tableur 
PRACTICALC et du grapheur PRACTIGRAPHE. Cette 
société diffuse cet ensemble dans une mallette conte- 
nant les quatre disquettes et les quatre documentations. 


Ces quatre produits ont une présentation générale assez 
similaire : pilotage par un système de menus hiérarchi- 
sés, possibilité d'obtenir une aide appropriée, à tout 
instant, par appui sur une touche et présence en bas 
d'écran d'un bandeau de repère. Cela les rend suffisam- 
ment conviviaux pour qu'on puisse les utiliser sans avoir 
à passer auparavant de longues heures dans les docu- 
mentations. Celles-ci sont par contre moins réussies car 
trop touffues et mal indexées. Par chance une petite 
fiche résumée accompagne. et remplace presque 
avantageusement ces documentations. 


Ces quatre produits sont bien sûr interconnectés entre 
eux et les transferts de fichiers ne présentent donc 
aucune difficulté. Chacun des logiciels de base peut 
enfin récupérer des données extérieures, soit en ASCII, 
soit issues d’autres systèmes (Visicalc, Multiplan, 
Lotus,...). 


PRACTIBASE est un gestionnaire de base de données 
multifichiers qui autorise donc la “fusion” de renseigne- 
ments issus de fichiers différents (stock et vente par 
exemple). Chaque fiche peut contenir un maximum de 
60 champs, ce qui n'élimine pas beaucoup d'utilisateurs 
potentiels. Chacun de ces champs peut contenir au plus 
255 caractères. 

Il faut noter qu'avec des fiches les plus grosses (16 Ko), 
une disquette est saturée à 22 fiches. Le disque dur est 
donc bien sûr souhaitable comme pour tous les gestion- 
naires de bases de données. 

Les principaux points positifs sont: la possibilité de 
gérer trois fichiers à la fois, la mise en page plein-écran à 
la saisie et la richesse des possibilités de recherche. 








Ses principaux défauts sont : la complexité de la défini- 
tion des critères de recherche et une documentation qui 
manque totalernent de convivialité. Pour un prix de 790 
F, PRACTIBASE correspond toutefois à un excellent 
rapport qualité-prix. 

PRACTITEXTE est certainement moins performant, ne 
donnant pour un prix analogue que le strict minimum de 
ce qu'on peut demander à un traitement de texte en 
1967. D'autres donnent plus et pour moins cher. Ses 
principales qualités sont sa convivialité et son intégration 
à un ensemble cohérent. Pour le reste, graphique, 
tableaux, polices différentes sont absents. La présenta- 
tion du texte à l'écran diffère de ce qu'elle va être sur le 
papier. Il n'est pas plus possible de travailler sur deux 
colonnes. PRACTICALC est par contre l'étêment fort de 
l'ensemble. C'est un tableur qui n'a pas à rougir de la 
comparaison avec des concurrents pourtant beaucoup 
plus chers. La feuille de calcul est géante : 32767 lignes 
et 32767 colonnes autorisant toutes les “folies” possi: 
bles. Soixante fonctions de calcul sont disponibles per- 
mettant, en les associant, beaucoup de choses. Malgré 
cela, les temps de calcul sont très raisonnables. PRAC- 
TICALC a également d'étonnantes possibilités de pré- 
sentation et de mise en forme : couleurs, formats, diffé- 
rentes polices de caractères, ajouts de commentaires, 
présentation simultanée de plusieurs parties du tableau 
par usage d’un système de fenêtres. Il possède aussi 
des fonctions de tri multi-critère et un système assez 
simple d'emploi de macro-commandes permettant d'au- 
tomatiser des opérations répétitives. 

Il peut enfin utiliser PRACTIGRAPHE en procédure exter- 
ne. La visualisation des données sous forme de graphi- 
ques est donc possible sans sortir de l'application. 


I ne lui manque vraiment que la possibilité de gérer le 
co- processeur arithmétique. Enfin, pour 790 F, on peut 
accepter de ne pas tout avoir. 


PRACTIGRAPHE est pour sa part un outil honnête, sans 
plus, pour un prix de 690 F. Sa principale qualité est 
d'être connecté à un bon tableur. Il autorise la plupart 
des représentations classiques : lignes, barres, camem- 
berts, nuages accompagnés de plusieurs types et tailles 
de caractères, et ce, avec une palette de 16 couleurs. 
C'est correct, mais d'autres grapheurs guère plus chers, 
et ayant l'avantage d’être résidents, font au moins aussi 
bien. Ces logiciels tournent sur les compatibles ayant au 
moins 256 Ko de RAM et le DOS version 2.0 ou plus. 
L'ensemble est vendu pour moins de-2000 F au lieu de 
plus de 3000 en additionnant les prix individuels. 


Le Magicien 


C'est un Système de Gestion de Base de Données 
(SGDB) qui nous vient du Québec. Il est utilisable sur 
tout compatible ayant au moins 256 Ko de RAM et deux 
lecteurs de disquettes. Comme la plupart des logiciels 
de ce type, il est préférable de disposer d'un disque dur 
pour une utilisation confortable. 

Ce qui caractérise le Magicien, c'est sa simplicité d'utili- 
sation. 1! est suffisamment convivial, avec ses menus 
successifs, pour qu'un utilisateur même débutant puisse 
le faire tourner, pour voir, avant de lire la documentation. 
Celle-ci sera alors utile pour exploiter ce logiciel au 
maximum. Deux itinéraires d'apprentissage sont propo- 
sés. Le plus court autorise la gestion d'une première 
base déposée, donnée en moins d'une heure. Le second 
nécessite environ une journée pour effectuer l'ensemble 
des exercices proposés. Ensuite, on prend plaisir à 
manipuler cet outil performant malgré sa simplicité d’uti- 
lisation. Il est vraiment “rapide, simple et complet” 
comme l'annonce sa publicité. 


Le Magicien peut traiter jusqu'à 2000 fiches en version 
disquette et 65000 en version disque dur. Chaque fiche 
peut contenir jusqu'à 170 champs qui peuvent être de 
trois types (alphanumérique, nombres entiers ou nom- 
bres décimaux}. Plus intéressante est la possibilité de 
gérer automatiquement quatre types de champ : date, 
âge, sexe et numéro d'assurance maladie. La possibilité 
de répartir chacune des fiches sur un maximum de neuf 
pages pour une meilleure lisibilité est une des qualités 
particulières de cetie Base de Données. Il faut également 
noter les facilités de correction et de réorganisation de la 
base et enfin les outils de traitement de données liés au 
logiciel lui-même : étude statistique, tn, échange de 
fiches ou de champ, nterfaçage avec des fichiers Lotus 
ou dBase.... |! est également interfacé avec l’ensemble 
des outils du traitement de texte “le secrétaire person- 
nel que nous vous avons présenté dans un précédent 
numéro de TEO. 

Le Magicien est édité par la société Logidisque et est 
diffusé en France par la société Pertech (Immeuble de 
bureaux - Centre commercial des 3 fontaines - 95000 
CERGY) au prix de 3000 F HT. 


La COUR TOISIE c'est 
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TES BEC 


Philopro II 


Pour un peu plus de 2000 F, la société “Le réseau 
planétaire" propose un ensemble de quatre logiciels 
constituant un logiciel intégré. Un traitement de texte 
PHILOTEXTE Il, un tableur PHILOCALC, un gestionnaire 
de base de données PHILOBASE et un utilitaire gestion- 
naire de menus et des fonctions du DOS, PC-MENU. 


Ces logiciels ont été conçus pour pouvoir être utilisés 
sans difficulté et sans qu'on soit obligé de se plonger 
constamment dans la documentation. Un bandeau indi- 
quant les fonctions disponible est toujours présent à 
l'écran. Une touche d'aide est utilisable à tout moment 
pour obtenir des renseignements adaptés à la situation 
en cours. 


L'interface avec les fonctions du DOS est assurée par 
PC-MENU sans avoir à quitter l'application en cours. 
Par contre, les documentations fournies avec le logiciel 
sont assez peu conviviales. 


PC-MENU permet de gérer dix programmes au choix 
sans avoir à repasser par le DOS pour aller de l'un à 
l'autre. Un disque dur est souhaitable pour profiter 
pleinement de ces possibilités car sa capacité est assez 
grande pour contenir les quatre programmes de PHILO- 
PRO Il et six autres au choix. À partir du tableau de bord 
de PC-MENU, il suffit d'appuyer sur une touche de À à J 
pour exécuter l'un de ces dix programmes, avec préci- 
sion de(s) paramètre{s) associé(s) Si nécessaire, tout en 

ardant cet outil en arrière-plan prêt à reprendre la main. 

ix fonctions sont également disponibles par appui sur 
les touches F1 à F10. Les fonctions correspondantes 
gèrent les entrées-sorties et les modifications pour les 
dix programmes pilotés. Elles donnent également accès 
FA ss fonctions du DOS sans sortir de PC- 


PHILOTEXTE Il est l’une des versions françaises (autre 
étant Nathalie Il déjà testée dans TEO) du traitement de 
texte PC-WRITE de chez Quicksoft. Il se déclare comme 
le plus rapide, le plus simple et le plus avancé. Même si 
tout cela n'est pas complètement exact, TEO avait 
souligné à l'époque qu'il correspondait au meilleur rap- 
port qualité-prix des logiciels de traitement de texte. Il 
est très convivial avec son bandeau de haut d'écran 
donnant à tout instant les fonctions disponibles et ses 
modules d'aide adaptés à la situation en cours disponi- 
bles par simple appui sur la touche F1. Cette simplicité 
cache une grande puissance dont le premier élément 
est sa rapidité. Il gère en effet des fenêtres, it sait 
travailler sur deux textes à la fois, il peut intégrer du 
graphique dans son travail et sait même imprimer en 
“justifié proportionnel”. 

Le débutant y trouvera vite son compte quand le spécia- 
liste cherchera encore à en épuiser les possibilités. 
C'est un point fort de cet ensemble intégré. 

PHILOBASE fonctionne avec la même logique. C’est 
donc une base de données assez simple d'emploi pour 
que le débutant puisse y rentrer sans trop de difficulté. 
Le bandeau de fonctions disponibles et les modules 
d'aide appropriée l'y autorisent. En moins d’une heure, 
la première application peut être réalisée même par un 
débutant. L'utilisation de la documentation n'est utile 
que pour aller plus au fond des possibilités réelles du 
logiciel. Cette facilité d'emploi cache en effet un outil qui 
n’a pas trop à rougir de la comparaison avec nombre de 
ses concurrents. Il comporte un éditeur de texte qui peut 
Servir de deuxième traitement de texte à l’ensemble. Les 
données sont saisies avec un éditeur plein-écran. Les 
échanges de données entre deux fiches se font sans 
aucune difficulté et sans aucun risque. lf sait lire correc- 
tement les voyelles accentuées et sait donc classer 
correctement des mots écrits en minuscules. Il sait 
fusionner une lettre avec un fichier, et donc faire du 
publipostage. Il sait même protéger son accès par un 
mot de passe! Il a des limites de taille et de tri qui 
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semblent raisonnables pour la plupart des applications : 
un maximum de 32767 fiches contenant au plus 42 
rubriques et un maximum de 10 critères de tri. Il ne 
permet certainement pas de faire autant que les grands 
du genre, mais presque, ce qui lui donne un rapport 
qualité-prix (moins de 800 F) intéressant. 

PHILOCALC n'est pas le plus performant des trois 
composants. C'est un tableur travaillant sur une feuille 
de calcul de 64 colonnes et 256 lignes, chaque cellule 
étant paramétrable en taille. Il possède les propriétés 
classiques des logiciels de ce type avec une trentaine 
de fonctions mathématiques, statistiques ou financières, 
les possibilités de tri et bien sûr la connexion à des 
logiciels de gestion de bases de données dont PHILO- 
BASE. Sa principale qualité est sa convivialité qui est au 
même niveau que pour les autres logiciels de cet ensem- 
ble. PHILOPRO I tourne sur tous les compatibles ayant 
au moins 256 Ko de RAM, un lecteur de disquettes et 
une version du DOS à partir de 2.0. Ce logiciel est édité 
par le Réseau planétaire - BP 3 - 43260 St-Julien-Chap- 
teuil. 


Polydesk pc 

Logiciel intégré 

C'est un logiciel intégré qui s'adresse à tous ceux qui 
veulent traiter du texte, des tableaux, des fiches, faire 
des calculs et du publipostage. Il est issu du traitement 
de texte Flashtext précédemment étudié dans TEO et on 
y retrouve avec plaisir la même convivialité. L'utilisation 
de menus déroulants rend très facile le parcours dans le 
logiciel et ses différentes fonctions. La prise en main est 
donc rapide d'autant plus que la documentation d'ac- 
compagnement est faite intelligemment. Cette qualité 
doit lui permettre de séduire bon nombre de non-spécia- 
listes plus intéressés par la facilité d’utilisation que par le 
côté extraordinaire des possibilités. Le point le plus 
faible de l'ensemble est la fonction calcul qui mériterait 
d'être à la fois développée et simplifiée. L'outil proposé 
autorise uniquement la gestion de devis et de factures et 
la tenue d’un stock. Nous n'avons donc pas affaire à un 
tableur. |! faudra y remédier pour réellement mériter le 
nom d’intégré. 


La fonction traitement de texte par conire reprend les 
possibilités de Flashtext qui sont très largement suffisan- 
tes pour tous ceux qui ne souhaitent pas se lancer dans 
des travaux d'éditeurs. Il est facile de mêler texte et 
graphiques, schémas et tableaux. Il faut noter que deux 
utilitaires complémentaires peuvent être achetés pour 
enrichir ces possibilités graphiques : FlashPaint pour les 
dessins et Flashgraph pour les graphiques. 

Le gestionnaire de fichiers ne s'encombre pas plus de 
détails, mais il permet l'essentiel. Chaque fiche peut 
contenir jusqu'à cent rubriques et son cadre est construit 
simplement à partir du traitement de texte précédent. 
Les fiches sont ainsi définies en même temps pour la 
forme et pour le contenu. Cette propriété est intéres- 
sante tant que la taille de chacune des fiches n'est pas 
trop importante, la taille d’un écran par exemple. Dans 
cette limite, Polydesk est un bon outil facile à utiliser. On 
retrouve cette même logique pour les possibilités de 
recherche qui sont limitées à dix propriétés : plus petit 
que, égal à, non égal à, plus grand que, commence par, 
ne commence pas par, finit par, ne finit pas par, contient 
et ne contient pas. Le module publipostage utilise les 
fichiers texte et ceux du gestionnaire de fichiers comme 
contenant. Par un système de programmation assez 
accessible il permet la génération de lettres contenant 
du texte et du graphique et trier en fonction des données 
4 de référence. Le langage utilisé est inspiré du 

I: 

Polydesk est un bon outil pour un enseignant qui vou- 
drait gérer un fichier d'exercices dans lesquels il peut 
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utiliser textes, dessins, schémas et tableaux. La 
connexion de ce premier fichier avec celui de ces élèves 
est simplement prise en compte par le logiciel. Polydesk 
est édité par la société INTEK (4 rue Raoul Ponchon - 
06300 NICE) 


Le Typographe 


Pour une somme d'environ 1 000 F, ce logiciel permet 
de jouer au typographe. Votre micro-ordinateur va pos- 
séder huit styles d'impression à choisir parmi quatorze, 
disponibles en standard auxquels il faut rajouter tous les 
caractères que l'utilisateur aura le courage ou l'imagina- 
tion de créer. Un générateur de caractères très simple 
d'emploi permet en effet d'enrichir à loisir sa collection 
d'aphabets. 


Pour écrire avec l'un de ces huit styles mémorisés, il 
suffit ensuite que les enregistrements correspondants 
soient sur la disquette en ligne, que le programme 
résident LTR.COM soit chargé avant le logiciel de travail 
utilisé (traitement de texte, tableur, . et enfin d'indiquer 
par No le numéro de l'alphabet (de 1 à 8] avec lequel on 
désire travailler. It est bien sûr possible de changer 
d’alphabet autant de fois qu'on le désire et le code 
d'appel sera invisible à l'impression. 


Les styles ainsi disponibles du standard aux pictogram- 
mes en passant par les lettres couchées ou à l'envers et 
l'écriture manuscrite ou le japonais. Le TYPOGRAPHE 
va plus loin encore dans les services rendus. I! sait 
imprimer en format paysage pour obtenir des tableaux 
ayant jusqu'à 6 m de longueur. Ceux qui utilisent pour 
cela ciseau, colle et patience comprendront l'intérêt de 
cette fonction. Pour couronner l'ensemble, il sait impri- 
mer des affichettes ou des posters avec des caractères 
de 22 mm. ll suffit pour cela de rentrer le texte souhaité 
dans un cadre dessiné sur l'écran. Tous les caractères 
précédents sont bien sûr utilisables pour cela. 


Le TYPOGRAPHE multipliera leur dimension par 8 au 
passage sur le papier. D'un cadre de 13 lignes de 7 
caractères, il sortira une affichet:e de 15 cm sur 25 cm. 
Le TYPOGRAPHE toume sur tous les compatibles ayant 
au moins 256 Ko de RAM, un lecteur de disquettes et un 
DOS à partir de la version 2.0. Il est diffusé par le réseau 
planétaire - BP 3 -43260 St-Julien Chapteuil. 


Ceci est le style normal d'une IMPRIMANTE 


LE TYPOGRARPHE, police 1 : standard 


LIN AIR FENCHE italique 


& NON “LHOSUSNNEA 


UN ACCENT JAPONAIS: 
CHATREANA) ma Lobe LE Pism— : 
CHIRAGANA) 14 LPLTL LA gp 


tt M 
ds tb = 
LIEN OOD0TH — + mPOSsLEU 
3 care 


N PETIT DESSIN VAUT MIEUX ,..: deusin 
5? © & & © À À du eme ER + h Ÿ «+! 


ur 107 Det SU URL AS 


ms ycoc -- BZEU RD-3CD + MZDE 


DUUEZ RUES  PPHONDPE 
UN STYLE TRES 1.B.M. : bigblue 
Ce 


NOUVEAU AUEC : ertodero 





REPAIRE 





TEOGRAF, un éditeur 
graphique pleine page 


Volcl les derniers modules de ce pro- 
gramme dont la parution a débuté dans 
le numéro 9 de TEO,. 


© CONV Conversion des couleurs 

© SAUV } Chargement sauvegarde, compilation 
© COMP } d'images et système d'exploitation 

© SED ] disqueetcasseite. 


William Hennebois 


CONV 
10 CLEAF .2HAGQO 
20 DEBUT=RHBED 1: FIN=£HBF 19: LANC=EHAF 18: À 
DE=DEBUT: LOADM"GEAF 
30 READ A#:GCHK=0: PRINT A$ 
40 FDF A=0 TO LEN(A#)-2 STEF 2 
O0 DAT=VAL{"AHT4MIDE (AS, A+1.2)) 
60 ECHK=SCHK4DAT:FOKE ADR, DAT :ADE=ADR +1 
70 IF ADAOFIN THEN 100 
80  MEXTA 
99 READB:IF B=GCHK THEN 30 
91 PEINT “EFFEUR":STOF 
100 FOKE SHAFOG. LHBE:POKE KHAFOB, KHES: PO 
KE CHAFOD.CHBE:POKE BHAFOE. LHES: SAVEM"GR 
AP", GHAEC2, FIN LANC:FRINT'FINI 1111: RUN 
"SAUV 
110 ? 
120 DATA "SEBFAZESEABDAF 7SE 7AUGCAECI2EF 4 
JE", 2533 
130 DATA "AF!88EBFB2EbG4BDOAE7BOBCAECZ25 


gEu 7177 


dd oe ami 


140 DATA “7EAF1RT404C407TA40E 661 S4C4 RER 
£a", 182 

190 DATA "E?E4EBSICSCR2TOBELEACABCE E4TE 
04", :340 

160 DATA "CALOZIESIO", 566 


SAUV 
10 CLEAR .{HA0OO 
20 DEBUT=8HEF 6: FINS#HC1 231: LANC=SHAF !B: A 
DR<DEEUT : LOADM"GRAP 
30 READ AS:SCHK=C:PEINT AÀ$ 
40 FOR A=û TO LEN(A#)-2 STEP 2 
90 DAT=VAL "EH" 4MIDS (AS. A+1,2)) 
60 SCHK=SCHE+DAT:POKE ADR, DAT: ADR=ADR+1 
70 IF ADRFIN THEN 100 
86  NEËTA 
90 READE:IF B=GCHK THEN EQ 
91 PRINT "ERREUR": STOP 
100 FOKE CHAEFE.&HBF:POKE SHAEFF. LHC4: FD 
KE UHAFOL.LHBF:FOKE LHAFO2, SHEC: SAUEN"GR 
AFP. GHAEC2,FIN, LANC:PRINT®FIME OL": FUN 
"COMP 


(suite et fin) 


10000 DATA "1FS6431851184020202020202020 
201F". 670 

10010 DATA "554304 FSE4S1BSS1R4020202079 
2020", 734 

10020 DATA "2O2NFESA4TOABE 7O064FRDEBCEED 
I7FA", 1402 

10030 DATA "C17A22F60120250C810722FEBDE8 
QSET" 1932 

10040 DATA "BG4C2NEEC 1082615 4027DF 4ACECE 
BDEE". 1772 

10050 DATA “ICE 20EDEBOZCEOBRDEROZ20CDC1 
0D2€". 1788 

10060 DATA "1FSFGESETANGENRA4ZTACCECSACCE 
OBAE", 1703 

10070 DATA “B4Z40SBEZOFSAGBOATCOSAZEF21C 
FE39". 1946 

10080 DATA "C10C1028FFA#IAULE CSS SBDRAF 7 
8E0C", 1801 

10000 DATA "OACC1S01240ERDE4DC 10BECOLOCE 
20EL", 1470 

10100 DATA “ESOSSISFIEF7ISOG4CICIFIÉET7E0 
BDD9". 1530 

10110 DATA “BDH!BAUZOEOCFFBEPF 1EBDE4FOED 
BF3C". 2239 

10120 DATA "34018EBF2CBDR&F 035011023000 
BDCO", 1529 

10130 DATA "O2802R7ERCESBDB1BDB1BA02170D 
FFBE", 2043 

10140 DATA "BFIERDH4FOBDBF SCIA018EBF T0 
E4F0", 2258 

10150 DATA "33011025000SB0C0308D0S7ERCES 
BDES*. 1477 

10140 DATA "OSSE40NOCE C4ZALBOATCOBCEF 40 
2EF7*. 1830 


10170 BATA "TAEZCIBE40OOCE8FB2AGBOATCOEC 
SF40", 2185 

10180 DATA “IF 750 M BDBCSS 1 ASOCECSB4BE 
4pA7". 1095 

10190 DATA "C£9484!ATCOB6ñOATCOCCOZ00EDC1 
4FBD”, 2227 

10200 DATA "CS438E7042RDC10TZ404BDCIOSIF 
gpl", 1782 

10210 DATA "C1071F0ZRDCICSRDCIOSAGENSENE 
BDC1", 1820 

10220 DATA "GIE GOT SF 2EF7200CCC27185408 
CCd0", 1540 

10220 DATA "G0240b108E/04ZHDC2873581 340 
RDBC", 1492 

10240 DATA “581AS0CC2T 1854080 CO(OCZAGECE 
CSB4", 1362 

10230 DATA "S£4DA7COB641A7COBESOATCOCCO2 
00EL", 2144 

10280 DATA “C1108E74BDC15734204FRDCIEF 
8E70", 1830 

10270 DATA "4S5FBDC107350683/0471E80BDC1 
CNE". 1496 

10289 DATA "S9EDCIOS:FOZSFEDC10SBDCIOSER 
BBD". 1967 

10290 DATA "C103212F24F7C£FFBDCIOSBDCIOS 
BDC1". 2198 

10300 DATA "O3BDC103BDC1054FRDCESFSSELE4 
024F", 1710 

10310 DATA "BDCIAD2507 3582066 TEDB4F BETA 
0830", 2092 

10320 DATA "{FD£FCCESOBORAF SETACBSOIFIE 
FCBC". 2141 

10330 DATA "EBC&SD2TEZOFETON47EAFOS", À 
289 


L'ACCUEIL c'est 
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REPAIRE 


10 CLEAR .&HAGO0 COMP 


20 DEBUT=4HC1232:FIN-4HC336: LANC=EHAF 1B:A 
DR=DEBUT: LOADM"6RAP 

30 READ A$:SCHK=0:PRINT AS 

40 FOR A=0 TO LEN(AS)-2 STEP 2 

50 DAT=VAL ("£H"4MIDS (AS, 441,21) 

0 SCHK=SCHK4DAT:PDKE ADR, DAT: ADR=ADR#1 
20 IF ADRDFIN THEN 100 

80  NEXTA 

90 READB:IF B-SCHK THEN 30 

91 PRINT "ERREUR ":STOP 

100 SAVEM"GRAP",LHAEC2,F IN, LANC:PRINT'FI 
NI 111": RUN"SED 

110 ? 

10000 DATA "6FE263E#8C6FE224206FA0ECE7AÛ 
6sE0", 2320 

10010 DATA "Bb2402EDA1SCACT402B6083D350? 
3034", 1147 

10020 DATA "26AB6CEBEDSC1700EDT0B8D2410 
1700", 1495 

10030 DATA "D46D6226088D16104F641700C167 
&98D", 1487 

10040 DATA "OC&FAUEFAOZ26AAEE 112646 B4A6 
EB10", 1915 

10050 DATA "AOSEA7SBEBEFABEE 1 700RH34104F 
EbB4", 1877 

10080 DATA "727C8077326426038D3F BCEDS24D 
AA", 1449 

10070 DATA "ECSFAOSFADZ2621F20A366 1034 
2524", 1606 

10080 DATA "LOAEGGEREFABBE1 7 00BC3410AGEE 
12A0", 1716 

10020 DATA "EBIOESBOE 7AU4AZAF 0170072064 
2SEC", 2044 

10100 DATA "22624FB14F80FE0070327E8D407? 
240", 1459 

10110 DATA "B1FF2708E 18426046D6C2AEDEDAI 
304F", 1892 

10120 DATA "A024207121E7A0BD24E2844CB1FF 
2708", 1763 

10130 DATA "BDO227046DSE2AEDA7F132341020 
8828", 1448 

10140 DATA "ACECZSC4AESB3OOE 1842510307 
BB2E", 1355 

10150 DATA "ACSA2SOUAESESOO1AFBÈBAER 1 020 
B£E7", 1750 

10140 DATA "CISA4FE200SB6E7CIBAULBZE7C 30 
PEE2". 2303 

10170 DATA "?08829AF 52308 400030B882B2D 
5940", 1318 

10130 DATA "SB4OSE4CENBEZOCE71825187456 
2005", 1085 

10190 DATA "BFEZSSEARCLFE 2 ABACTAOTECAL 34 
0234", 7024 

10200 DATA "OSZAOBAESCEREATAG GABEDAOE4ZA 
CAE", 1419 

10210 DATA "S4A7LAEBSEENS12A04ERESE?85ES 
ER", 2207 

10229 DATA "OBZDCRCOE 7852506SCBDAE 208809 
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3410, 1345 
10230 DATA “GD936D482604BD0ERD846748ED08 
3269", 1478 


10240 DATA "AEEI32H46EB4EC EE DEA4bEE 02402 


201€"; 1773 
10250 DATA "EC6DEDB?3410A6A0270BE BAOBDA2 
26FC", 1944 
10280 DATA "20F4ABA02737ELROBDSE26FA20E8 
6h65", 2040 
10270 DATA "ECBD1FF613410A668A766AB6AE6 
AOBD", 2098 
10280 DATA "6727086D662B02E7B430016ABE4A 
24ED", 1377 
10220 DATA "17FF3RED8727026A87ACb425DA32 
6239", 1531 
10300 DATA "ÉD6B2B0B4D6227048A60E 7847088 
28AC", 1491 


* 10310 DATA "6625107404EB6CE 7 BASSO4AE 8270 


OLAF", 1439 
10320 DATA "B26A6B4ASS", 430 


10 CLEAE .#a000  SED 

20 DEBUT=&HC337:FIN=RHCSAB: LANC=UHAF 1B: A 
DR=DEBUT: LOADM"6RAP 

30 READ A$:SCHK=0:PRINT AS 

40 FOR A=0 TO LEN(AS)-2 STEP 2 

50 DAT=VAL ("LH"4MIDE (AS, A#1, 2) 

60 SCHK=SCHK4DAT:POKE ADR, DAT: ADR=ADR+1 

70 1F ADR)FIN THEN 100 

B0  NEXTA 

90 FEADE: IF B=SCHK THEN 20 

91 PRINT "ERREUR ":STOP 

100 SAYEM"GRAP". &HAECZ, FIN, LANC:PRINT"FI 
NI (Um END 

110 ? 

10000 DATA "ABBOACOSA28F9323406B6032004 
3406", 1376 

10010 DATA "BB0134707FB0FOR7£0E8BE 00780 
EFAL", 2089 

10020 DATA "66BDC32BS440FFROE73TABECCIFD 
SEP", 2446 

10030 DATA "FFÉOES32C90100FF£0ED35 104866 
812", 1921 

10040 DATA "35703S86CEC28748EECECS1BBE6O 
ES3O", 2142 

10050 DATA "CSACRDFOS3C2020DBDCE37308DE6 
2300", 2134 

10060 DATA "O20D1E1ZBDCE3730347EB?CSABRD 
CIE", 1796 

10070 DATA "HFC020E 2005747ERTCSAREDC 303 
B6£C", 1855 

10080 DATA "1FBBSSSE1£0FD27198780FD8602 
2D60", 1888 

10090 DATA "8027207FS0FOB801B7BGA4BRDEO04 
8602", 1726 

10100 DATA "2S2AFLÉLEFF78C40BELOESEFSOAF 
8601". 2096 
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10110 DATA "Cé02F78048F680E6102700C8C102 
1027", 1892 

10120 DATA *0135C1012728C103102701088760 
ES?F", 1222 

10130 DATA "60FD4320037F60ESS404B8CSAERD 
C389", 2030 

10140 DATA "BSBOES27031A01FSICFESSO43SFE 
7060", 1688 

10150 DATA *FO260CBDC5222SD488045027CF20 
IEBE", 1688 

10180 DATA "BOF SBCÉOF 12673B660F2E160F527 
OA22", 2145 

10170 DATA “2A7F0E67FBOFOZ0RCB107281E 10 
BEBO", 1688 

10180 DATA "EDBDEOIFFBBOFESCABASB760FÉCS 
09F7", 2671 

10190 DATA “60F2B1C02505B40FE70FBESOE® 
EF60", 2189 

10200 DATA "FSCCAMBOB1E0022602CB7FB66OFS 
H160", 2212 

10210 DATA "F92503FC60F74F 30BBEF BOF 1B660 
FA7C", 2330 

10220 DATA "60FA7C6OFSB7604CFCHOFBFD6O4A 
BDEO", 2601 

10230 DATA *O486031025FF5SBE6OFSEGBOEF40 
F3E7", 2182 

10240 DATA “&17EC40CB6OLF660FOCS021027FF 
3DED", 1907 

10250 DATA "CAFC1028FF3410REBOEDRBBOFÉFE 
6OF5", 2480 

10240 DATA "CCOACE7ABBDEO101025FF20FCE0 
F3B3", 2404 

10270 DATA “BOESEDZEBDEO1 61029FF1 1RDE022 
1025", 1872 

10280 DATA "FFOR7EC4OCBEBOFABZ604CFCBOFE 
FD60", 2430 


‘10200 DATA "4A7EEO167D60F028518D101025FE 


EDSD", 1820 
10500 DATA "2727BDE013102SFEE3201EF760F0 
BDEO", 2102 
10310 DATA "OD2503BDE010297D60F 0267EBDED 
1025", 1513 
10320 DATA "FECAB6OBSD1026FEC3BDEQ 191025 
FEBC", 2127 
10330 DATA "BEBCESRF6OF2T0B900BOC644F 1E0 
0226", 2133 
10340 DATA “C330887FBF BOF 1BDEOIFREBOF3BC 
b0F1", 2340 
10350 DATA "2535BDCA4FC1025FE 9 3BE6O0E9BF LO 
FSB6", 2412 
10360 DATA "60FA7CSOFA7CEOF 810827048110 


2817", 1667 


10370 DATA "OBEBOEDBDEGICI0ZSFE71B6ÈÛFE 
F760", 2267 

10380 DATA "FHACEZABRDENIFESÉIBEBOF SE 780 
F0", 26b5 

10390 DATA "FSZEC49C10", 9593 


Super Puma pour 
attaquer la D.C.A. 
ennemie avec vos missiles. 


E Involez-vous dans votre 





Après avoir effectué les demières vérifications d'usage, 
vous mettez le contact et dans un vacarme assourdis- 
sant, vous décollez à bord de votre SUPER PUMA. 
Votre mission consiste à détruire un barrage libérant 
ainsi des millions de mêtres cubes d'eau sur les installa- 
tions erinemies. Mais la D.C.A. ennemie compte bien 
vous arrêter grâce aux radars qui la guident, radars 
disséminés dans les quatorze tableaux que vous devrez 
traverser avant d'atteindre le barrage. Vos missiles, 
auxquels rien ne résiste, sauront répondre à ces agres- 
sions. 


Heureusement pour vous, une base de ravitaillement et 
de munitions de couleur bleue se trouve sur votre 
chemin, ainsi qu'un camion citeme pour vous éviter les 
pannes sèches. 


Le programme a été écrit en Basic 128 sur un TO7-70, 
mais il peut fonctionner sur les micros suivants : TO7 
(+16 K), MOS5, MO6, TO9, TO9+, TOB ave, le Basic 1.0 
ou 128 ou 512. Une manette de jeu est nécessaire pour 
le déplacement de l'hélicoptère. 

Le programme est long de 19 Ko. 


François Zanler 


0 L UREMEEERREEEEREEEEE: 
ISUFER-FUMA/ (c) 19867 
BY! /FRANCOIS/ZANIER/ 
LHHIIES ESSAIS EUR 
1 ATTRBO, 0: CONSOLES, 24,0: CLS: SCREENS, 0,0 
:PRINTCHRS (20) 
2 CLEAF., 47:60SU85000: GOSURS ! 00: 60SUBEOC 
0 
10 TIRS="ANTSLEOSDOSI" :NTI#=" AOTL 20SSIR 
E":EP$="A9T2L20561" :0C=24635 
15 VI=S:FU=23:N1=22:9C-0:M121: TMI=0:FUE 
=1:BF=200: EAU 1: MUNI=1 
16 CAM=1:AR=10: DC=10:DIMAR(15):DIMDCA(1S 
J:RESTORELE:FORI= 17015: READJ: AR (1) =J: DCA 
{D)=J:NEXT: AR 7) =1: AR (LT) =1: AR (2)=1: DATA 
1,0,1,0,8,10,4,1,8,1,1,0,0,1 
89 CLS:60SUB240û 
90 H={:HE=HE (H} : K=16: V= 29: TB=2 
91 GOSUB2000: 60SUR2500 
90 * HREESÉEEERTENAESEEEE 
# BOUCLE PRINCIPALE à 
PÉRRANSNERRETERREENE 
100 S=STICK{0):ONS GOSUR1010, 1029, 1020, 1 
040,1050, 1060, 1070, 1080 
101 COLOR&:LOCATEX, V:PRINTHS 
102 ONABS ISTRIE (0) )E0SUB1 100 


Super Puma 


ES MUMITIONS: 





-— 
== 


103 IFAR(TR)GOTO30 
104 BF=8F-1: IFBF{16070140 
103 GOTC100 
130 ” éttitititentetttits 
t CONSOMMATION FUEL À 
tistititinininnititt 
140 FUE=FUE-1:UFES=GR#(20-FUE) : IFFUE=1TH 
ENPSET (FU, 1)" “:FU<FU-1ELSEFUE=2 
141 IFFU=10G0TD145 
142 IFFU>21THENTEU=2ELSEIFFUR20THENTCUSS 
ELSETCU=1 
143 PSET(FU, L'UFES, TCU:BF=200: 6070105 
144 ? tthitiititiini 
à DECFOCHAGE À 
ÉTIENNE 
145 LOCATEX, V-1:PRINTEFS$:LOCATEX, Y: COLOR 
B:PRINTHÉ: V=V+1: IFSCREENUX, V=32ANDSCREE 
NeXH, V)=T2GOTOI4SELSEVI=Y-1: K1=X:60T010 
92 
149 7 Hit 
t TIR DEA Ï 
LITREE NE) 
150 IFDCACTE)ANDY<YDCA ANDINT (RNDEI,2)TH 
ENELSEIFTE={ 3ANDCAM GOTOISSELSEIFTB=7AND 
MUNIE GOTO17CELSEIFEAU=CANDTE=260TD{B0ELS 
E104 
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REPAIRE 


DRDDDEEDREDEEDEEDEE 


CL 0 
FUEL : 


44444 e 
























TRELEAU: 


10140 


151 EDCA=ABS (EO# { INT (RND#90) -20) #XR4E) : I 
FEDCA)S19THEMEDCA= 319 
152 LINE (XDCANB+4, YDCANB-1)-(EDCA, VRB+4) 
 LEPLAYTIRS: LINE CXDCAtE+4, YDCAB-1) -(EDC 
A, V88+4),-1 
193 IFEUCASNYBANDEDCA{X#8+1660704020ELSE 
GOTD104 
158 7 ANNNNNNNNNEENNENNNEE 

à DEPLACEMENT CAMION à 

OTETILEII LENTILLE 
155 CX=CX41: IFCXYSATHENLOCATESA, 10: PRINT 
" “:CX=0 
156 IFY=10ANDCI+5<X 60704030 
157 IFY=0ANDX=CX#{THENRAV=1:PSET (CX, LO?" 

*:60T0140 

158 COLORS:LOCATECX, 10: PRINTCAMS: GOTO104 
189 IFFU=2SANDFUE={ THENRAU=0 
161 X=X41:CX=CX41: IFCX=SSTHENLOCATESS, 10 
LPRINT" ":LOCATEZS, 9:PRINTEFS:V1=10 
:X1=39: 60701002 
182 IFRAV THENPSET (20, L)GR£(19), 1:PSET (2 
1,L6RE (19), 3:PSET (22, 1)BR$ (19), 2:PSET(2 
3, 16R$ (19), 2:FU=22: FUE=1:PLAV"ASTAL405D 
OREFASILASO" 
183 IFSTICK(0)=1THENV=8:RAV=0:LOCATEN-1, 
Q:PRINT"  ":PSET(CX, 10)" *:GDT0104 


19 


REPAIRE 


164 COLORS:LOCATECX, 10:PRINTCAMS: COLORB: 
LOCATEX-1,9: PRINT" “4H 
185 6070180 
TC MRTITICITELITELILETITE LIT CLE 
# RAVITAILLEMENT MUNITIONS à 
CÉTELETIEITECLI LILI TIR 
170 IFK=23ANDY=1ATHENELSE1 04 
171 PSETLIS,O)GRE (19), 1: LINE (14,0)-(15,0 
)ER#(19) ,3LINE(18,0)-(23,0)6RS (19), 2:MI 
223: M1S=1 : TMI=0: PLAY" ASTALAOSDOREFA#SILA 
60" :60T0104 
179 ? HRRANENNRNNNENENS 
à RENTREE À LA BASE & 
CCTLETETETECTE LITTLE 
180 IFX)14ANDY=22THENELSE1 04 
181 H#=H$(3) : IFX=1BTHENX=17:PSET (19, Y)" 
“,B:LOCATEX, Y: PRINTHS 
182 31-190: J2=179:FORI=1, 57703. 07STEP. 2: 
J3=C08 (1) #8+)1:J4=SIN(T) 4842: LINE (01,92 
D-(J8,94),7:PLAY"AQTAL7OSSI "LINE (91, 92) 
= (73,04) ,-1:NEXTELINE(J1,22)-(151.12),7 
183 PSETEX,Y)" *, 8: X=X+1: LOCATEX, V: PRINT 
H$:FORI=0T0200:NEXT: IFX21B60T0183 
184 PSETIXY)" ":X=X+1:PSET IX. Y)GRS (4): F 
ORI=0TO300:NEXT:PSET (X,Y)* * 
185 LINE(J1,92)-(151, 92), -1:FOR1=3.07701 
.S7STEP-. 2: J2=C0S C1) #84l 1: J4=SIN(I) 19+12 
LINE (91,12)-193, 94), 7:PLAY"AOTAL70581": 
LINE (J1,92)-(J3, 44) ,-12NEXT 
186 60107000 
900 ? HRÉSENENEETANEEETE 
à DEPLACEMENTS PUMA t 
DRRSEÉLESEEREEEEEEES 
1010 X1=X:V1=Y: LOCATEX, Y:PRINTEF$: Y=Y+ (Y 
»31:60T01090 
1020 K1=X:V{=V: LOCATEX, Vi PRINTEFS: X=X+1: 
Y=YE (V3) 2 H=H- CHCS) 2 HS=HE (H) : IFX=3960701 
200ELSEBOEUR1020:RETURN 
1030 X1=X:Y1=Y:LOCATEX, Y:PRINTEFS: X=k 4: 
H=H- (HT) :HE£=HS (H) : IFX=2960701200ELSE60S 
UB1090: RETURN 
1040 X1=X:V1=Y:LOCATEX, Y:PRINTEFS: K=X+1: 
Ya V=CV£24) 2 H=H- (HET) 2HS=HS (H) : IFX=3960T0 
1200ELCEGOSUB 1 090: RETURN 
1050 X1=X:V1=Y:LOCATEY, Y:PRINTEFÉ: Y=Y-(Y 
{24} :60701020 
1060 X1=X:Y1=Y:LOCATEY, V:PRINTEFS: X=X-1: 
V=Y-(YC24)2H=He (HA) 2HS=HS EH) : IFX=-160T0 
1210ELSEGOSUE 1090: RETURN 
1070 X1=K:YI=Y:LOCATEX. V:PRINTEFS: X=X-1: 


20 


2H=H+ CH) 2 H8=H$ CH) 2 IFX=-160T01210€LSE60 
SUB1090: RETURN 
1080 X1=X:Y1=Y:LDCATEX, Y:PRINTEFS$:X=Y-1: 
Y=Y+CY}3) 2 H=H4(H}1) 2 H$=H$ CH): IFX=-160701 
210ELSEGOSUE1090: RETURN 
1090 IFSCREENIX, Y)=SZANDSCREEN(X+1,Y)=32 
THENFETURN 
1091 IFS'TANDS{760T01093 
1092 FORI=1T03:FORJ=1T07:COLORJ:LOCATEX! 
Y1:PRINTEPUS (TL) : PLAYEP$: NEXT: NEXT: GOTU4 
000 
1093 PI1=POINT(X46, Y88) :P2=POINT (XHB+15, Y 
#8}: IF (H={ANDP1=4) OR (H=ZANDP1=4ANDP2=4) 0 
R{H=SANDP2=4) 60TD1095 
1004 IFSCREEN(X. Y) C+320RSCREEN(X+1,Y) 23 
2607910972 
1095 X=X1:Y=YI:RETURN 
1009 ? HHHENENRENNENRR 

t TIR ROQUETTE # 

CÉLERCCEE ETS EEE : 
1100 IFCXS2ANDH=1)0R(XSGANDH=3) THENPLAY 
NTIS$: RETURN 
1101 IFSCREEN(X+(H=1)-28(H23),Y)C3F20RSC 
REENCX+24 (H=1)-38(H53) , Ÿ) C-S20ORH=2THENPL 
AYNTI: RETURN 
1102 IFTNI THENPLAYNTI$: RETURN 
1103 MIS=MIS-{: IMIS=GRS (20-MIS) : IFMIS=IT 
HENPSET INI,0)" “:MI=NI-1ELGEMIS=2 
1104 IFMI=L2THENTMI=1 : GOTO1107 
1105 IFMEHISTHENTCI=2ELSEIFMDLSTHENTCI= 
3ELSETCI={ 
1106 PSET(MI, 0) IMIS$,TCI 
1107 ONH 60T01110,,1130 
1110 BX=X-23 IFBX<OTHENPLAVATIS: RETURNELS 
EPLAYTIRS: COLORS: LOCATEBX, Y:PRINTGRS (2) 6 
F$ (3) 3 IFBX=OTHENLOCATERX, Y:PRINTEF$:RETU 
RNELSEBX=BX-1: IFSCREEN(BX, Y)<)3260T01112 
1111 LOCATEBX, V:PRINTMI$: BK=BX-1: IFBX£OT 
HENLOCATEEX+1, Y:PRINTEF$: RETURNELSEIFSCR 
FEN(BY,Y1=3260T01111 
1112 IFTRCHSTHENELSEIFSCREEN(BX, Y}=1276 
CTOt11S 
1113 IFTBC1STHENELSEIFV=1060T01116 
1114 LOCATEBK+EI, Y:PRINTEFé: BX1=BX:G0TO 1 
4û 
1145 IFY=YPF ANDBX=16G0T01 1E0ELSEIFRX=17 
ANDY=YPF GOTD1114ELSEBX=BX+1:E0TD1114 
LE16 LOCATEBK+1,Y:PRINTEF$:FORI=1103: FOR 
d=1797: COLORI:LOCATECX, 10: PRINTEPUS (1) 5€ 
PUS CE) :EPUS(T) : FLAVEP#:NEXT:NEXT : LOCATEC 
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X,10: PRINT" *: CAM=0:RETURN 
1130 EX=Y+2: IFEXDIBTHENPLAYATI 8: RETURNEL 
SEPLAYTIRS: COLOR: LOCATEEX, Y:PRINTERS (6) 
ER$ (7) : IFEX=SBTHENLOCATERX, V: PRINTEFS: RE 
TURNELSE IFSCREEN(EX+2, Y} (3260701132 
1131 LOCATEBY, Y:PRINTM28: BX=BX41 : IFBX37 
THENLOCATEBX, Y:PRINTEFS:RETURNELSEIFSCRE 
EN(BX+2,V)=2260701131 

1132 LFTBOISTHENELSE IFSCREEN(BX+2, Ÿ)=12 
JEOTOLXS . 

1133 IFTBCHIZTHENELSEIFY=1060T0t136 

1134 LOCATEBX, Y:PRINTEFS: BX1=BX+2: 60TO11 
40 

1135 BX=BX-1: 60701134 

1136 LOCATERX-1, Y:PRINTEFS:FORI=1T03:FÜR 
d=1107: COLORJ:LOCATECX, 10: PRINTEPUS (1);E 
PUS (1) :EPUS (1): PLAYEPS:NEXT:NEXT:LOCATEC 
X,10:PRINT" * :CAM=0:RETUN 

1140 IFRA=LANDBXI=XR ANDY=YR THENET=75:6 
OSUB1150: AR=AR-1 : AR (TB) =0: 6001145 

1141 IFCD=1ANDBXI=XDCA ANDY=YDCA THENBT= 
100: 60981150: DC=DC-1: DCA (TE) =0: 60701145 
1143 IFTB=7ANDBX1<23ANDY= 1460701170 

1144 IFTB=2ANDBX1 }12ANDYH1OTHENEX1=BX 1-1 
1145 FORI=1T03:FORJ=1707:PSET (BX1, V)EPMS 
(1), J:PLAVEPS:NEXT:NEXT:PSET(BX1,Y)" "28 
ETURN 

1150 COLOR?:SC=SC+BT: LOCATEZS, 1:PRINTSC: 
RETURN 

1180 YER=105:LOCATERY+1, Y: PRINTEFS:FORI= 
1T03:FORJ=1T07:PSET EBK, Y)EPNS (I) ,J:PLAYE 
PS:NEXT:NEXT:PSETUBX, Y)" “:LINE(1b,21)- 
17,21)92$,4,&:LINE(O, 104)-(127, 104) ,-1 
1161 FORI=18TOX:S=STICK (0) : IFS=BORS=10RS 
=2THENLOCATEK, Y: COLORG, 0: PRINTEFS: Vy-1: 
LOCATEX, Y:PRINTHS 

1182 LINE(I,21)-(1,22)92$,4,6:LINE(O, YEA 
-(127, VER), -1: YEAZYEA#L: NEXT:FORI=1 TO3 
OsLINE(I,21)-(1.22)928,4, 6: LINE (O, VEA)-( 
127, VE), -1: VEA=YEAE1:NEXT 

1163 FORVER=VEA TO187:LINE (0, YEA)-(127,Y 
EA) ,-1:NEXT:FORVEA=16BT0175:LINE (0, YEA) - 
(319, VER), -1:NEXT:FORVEA= 17670183: L INE (1 
43,YEA)-(319, VER) ,-L:NEXT: EAU=0: AR(15)=0 
:DCA(15)=0 

1164 IFY=2160T04015ELSECOLOR, 0: RETURN 
1170 FORI=1T03:FORJ=1T07: LOCATEBK1-1,Ÿ:C 
OLORJ:PRINTEPUE (1) :FLAVEPS: SCREEN, , J:SCR 
EEN, L:NEXT:NEXT: LOCATEBXI-1,V:PRINT" * 
1171 FORE=3270140: SCREEN, , 3: SCREEN, ,0:LI 


NE(O,1)-(319,1) ,0:NEXT: 60704017 
1199 ? Rtisitirntenetittti 

à CHANGEMENT TABLEAU à 

LACECETETETDITTNO EEE 
1200 TB=TB+1: IFTB=16THENTB= 15: X=3B:RETUR 
N 
1201 X=0:605UB2000: RETURN 
1210 TB=TB-1: IFTE=OTHENTB=1 : X=0: RETURN 
1211 X=38:60SUB2000:RETURN 
1999 ? iii 

à DÉCORS à 

LIRE 
2000 CLS:LOCATE3S, 0: COLOR4: PRINTTB 
2061 ONTB 60T02010,2020,2030,2040, 2050, 2 
060, 2070, 2080, 2090,2100,2110,2120, 2130, 2 
140, 2150 
2009 ? phitiiiiinett 

à ler TABLEAU à 

tttiituitrntit 
2010 BOXF(15,23)-(39,24)928,2,0:PSET (15, 
23)S1$:LINE(16,23)-(31,23)G6#:LINE (0, 24) 
-(14,24)926,4,b 
2011 J=19:FORI=39TOSISTEP-1:PSET (1,J)51$ 
e SOLINE(T,J+1)-(1,22) 528: J=J+1:NEXT:PS 
ET(32,22)51$ 
2012 IFAR(L)THENRA=1 : XR=S1 : VR=22:PSET (T1 
 22)RAD2$, 2: RC=0: RM=0 
2013 IFDCA(1) THENCD=1 : XDCA=24: YDCA=22: PS 
ET(24,22)DCA$,2:E0=1 
2014 RETURN 
2019 * RHNERINERIEENENE 

à 2eme TABLEAU à 

tittiineinentee 
2020 BOX(0,22)-(39,24)628,2,0:LINE (8,23) 
-(14,23)56$ 
2021 FORI=15T021:PSET (1-15, 1) 538, 3:LINE ( 
1-15,221-C1-19, [+1 S26:NEXT:PSET (7,22)S7 
$ 
2022 J=10:FORI=39T0288TEF-1:PSET(I,J)81$ 
sLINEUT, d+1)-(1,22)62$: 3=J+1: NEXT : PSET (2 
7,22)51$ 
2023 BOX(120,184)-(159,185),4 
2024 LINE (20,22)-(26,22)MU$,7, 1: BOX (20,2 
0)-(26,21)FE8,7,0 
2025 RA=0:RC=0: RM=0: RETURN 
2029 ? RIRES 

à 3eme TABLEAU # 

LLPCICTRO NEUTRE 
2030 BOX (0,23)-139,24)528,2,0:LINE (13,23 
)-(39,23)56$ 


2031 FORI=10T021:PSET (1-10, 1)S38,3:LINE( 
1-10,22)-(1-10,1+1)S2$:NEXT:PSET (12,22)S 
35 
2032 IFAR(S)THENRA=1 : XR=13: YR=22:PSET (13 
+ 22)RAD2$, 2: RC=0: RM=0 
2033 IFDCA(3) THENCD=1 : XDCA=20: YDCA=22:PS 
ET(20,22)DCAS, 2: E0=-1 
2034 RETURN 
2039 ? HRRISRNNNNETENSE 

# 4eme TABLEAU # 

diisiiititititt 
2040 BDX(0,23)-(39,24)62$,2, 0: LINE (0,23 
—(2,23)56$:BOXF (11,16)-(39,22)52$,3:LINE 
(11,153-(39,15)56$ 
2041 J=15:FORI=10T04STEP-1:PSET (1,518: 
LINE(I,J+1)-(1,22)S2$:J=J+1:NEXT:PSET (3, 
22)51$:RA=0: RC=0: RM=0: RETURN 
2049 ? téttisiitnnentt 

à Sene TABLEAU ? 

siiiesneniinint 
2050 BOXF (0, 232-139, 24) 28, 2, 0: BOXF (0, 15 
)-(39,22)52$,3:LIME (0,15) -(9,15)568: EDX{ 
11,14)-(39,13)52$,1:PSET (10, 14)S1$:PSET I 
10,13)" ":PSET(11,13)S18:PSET(12,12)51$: 
LINE(13,12)-(39,12)56$ 
2051 RA=0:RC=0:RM=0:RETURN 
2059 * tistititittttutt 

à bene TABLEAU 1 

tiinitinttitnnit 
2060 BOK(0,23)-(39, 243528, 2, 0:BOXF (0, 15) 
-(39,22)928, Z:LINE (0,12)-(39,12)56$,1:LI 
NE(20,12)-(35,12) 526: BOX (0, 13)-(39,14)52 


REPAIRE 





$ 
2081 J=11:FORI=7TOISTER-{:PSET(27-1,9)51 
$,.9:LINE(28-1,9)-(2741,3)524:PSET (28+1, 1 
153$:9=9-1:NEXT:PSET (27,4)51$:PSET (28,4) 
53$ 
2082 IFAR (8) THENRA=1: XR=19: YR= 11: PSET (19 
«1 D)RADI$, 2: RC=0: RM=0 
2083 .IFDCA(6) THENCD=1{ : XDCA=12: YDCA=11:PS 
ET (12,11) DCA$.2:E0=1 
2064 RETURN 
2089 ? titititittennitt 

à 7eme TABLEAU à 

tinitinitrtenntt 
2070 BDX(0,231-(39,2452$,2,0:BDXF (0,15) 
-(25,22)828,3:BOXF (0,12)-(10,12)S6$,1:LI 
NE(11,12)-(22,12) 952$: BOXF(0,13)-(23,14)5 
2$ 
2071 J=16:31=17:FORI=6TDIO:PSET (JT, 1)S16, 
SePSET (II, D) S3$:LINE (I, 11)-(3,1+1)828:LE 
NE(J1,11)-(J1,141)528:3=J-1:J1=J1+{:NEXT 
:PSET(11,11)S1$:PSET(22,11)S3$:PSET (23, 1 
236, 1:PSET(24,13)53$:PSET (25,14) 53$:P5 
ET(24,14)52$ 
2072 J=26:FORI= 187021: PSET (I, 1)S38,3:LIN 
E(9,22)-(9,1+1)62$: J=J+1:NEXT:PSET (33,22 
153$ 
2073 COLORA4:LOCATE21, 14: FRINTHUNIS 
2074 RA=0:RC=0:RM=0:RETURN 
2079 ? SIREN 

t 8eme TABLEAU Ÿ 

titiritinitnintt 
2080 BDX(0,231-(30,24352$,2,0:LINE (3422) 
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REPAIRE 


-(39,22)624,3:LINE (6, 21)-(39,21)S6$:PSET 
(4,22)S19:PSET(5,21)51$ 
2081 J=33:FORI=3T016: PSET (9, 1)S18, 1:LINE 
(13,179-(9,141)528:3=J-1:NEXT:PSET 121,17) 
S1$:d=36:FOR1=3STOB:PSET (9, H)S3S$:LINE (J, 1 
2)-(J,141)62$:J=J+#1:NEXT: LINE (21,18) -(21 
,19162$2LINE (20,20)-(21,20) 528,3: PSET(19 
,20)51$ 
2082 IFAR (9) THENRA=1 : XR=203 YR=19:PSET {20 
,19)RAD1S$, 2: RC=0:RH=0 
2083 IFDCA(B) THENCD=1 : XDCA=14: YDCA=20:PS 
ET(14,20)DCA$,2:E0=1 
2084 RETURN 
2089 ? HANRÉRREANLREES 
à Jese TABLEAU à 
distetitrenenttt 
2090 LINE (0,24)-(39,24152$, 2,0:LINE (2,23 
}-(39,23)S6$: LINE (0,23)-(1, 231528: PSET (0 
5221528, 3:LINE (0,211-11,221S3$ 
2091 LINE(0,7)-(1,8)93$, 1:PSET(0,B)S24:B 
OXF(0,9)-(1,15)82$:LINE(0,17)-(1,1b)55$: 
PSET(0,16)52$:BOXF (2, 10)-(18,15%)S2$:LINE 
(2,9)-(18,9)S6$:LINE (19,9)-(20,10)538:PS 
ET(19,10)82$: LINE (19,11)-(19,15)S2$:PSET 
120,11)52$ 
2092 BOXF (20,12)-139,15)52$2LINE (21, 11)- 
(39,11)S8$ 
2093 IFAR(9)THENRA=1:XR=18: YR=B:PSET (18, 
BIRAD1$, 2: RC=0:RH=0 
2094 1FDCA(9) THENCD=1 : XDCA=1 1 : YDCA=8: PSE 
T(11,8)DCA$,2:E0=1 
2095 RETURN 
2099 ? téttètitteninnnt 
à 10ene TABLEAU à 
titine 
2100 BOX (0,23)-(29,24)52$,2,0:LINE (0,23) 
(19,23) S6$:BOXF (24,22)-(39,20)528,3:LIN 
E(24,19)-139,19)S6$ 
2101 PSET(23,19)S1$:PSET (22, 20)S18:PSET{ 
21,21)S1$:PSET (20,22) 561$: PSET (23,20) 526: 
LINE(22,21)-(23,21)52$:LINE (21,22)-(23,2 
21524 
2102 BOXF(0,11)-(39,15)52$, {:LINE(0,11)- 
(23,11)Sb8:PSET (24, 10)S1$:PSET (25, 9)S1$: 
LINE (25,10)-139,10)S2$:LINE(2b,9)-(39,9) 
S6$ 
2103 RA=0:RC=0:RM=0:RETURN 
2109 * dttstiiitineinent 
à lieme TABLEAU à 
etiiititinintts 


22 


2110 BOX(0,23)-(39,241526,2, 0: BOXF 10,22) 
-(39,20)52$,3:LINE(0,19)-(39,19)568$ 
2111 BOXF(0,113-(5,15352$, 1:PSET(0,10)52 
$:LINE(1,10)-(5,10)Sb8:BOXF {6,15)-(9,13) 
S24:PSET (6, 10)53$:PSET(b, 112524: PSET (7, 1 
163$: PSET(8,12)53$:BDX(5.11)-(6,121S2$: 
PSET(7,12) S2$:PSET(9,13)S3$:PSET(0,9)53$ 
2112 IFARCAL) THENRA=1: XR=9: YR=13:PSET (9, 
13) RAD2$, 2: RC=0: RN=0 
2113 IFDCA(11) THENCD=1: XDCA=14: YDCA=18:P 
SET (14,18) DCA$, 2:E0=-1 
2114 RETURN 
2119 * terteenetinnner 

à 12ene TABLEAU À 

tistieieneinentt 
2120 BDX(0,23)-139,24)52$,2,0:BDXF (0,22) 
-(39,19)52$,3:LINE(0,19)-(5,19)568 
(2121 3=12:FOR1=12T07STEP-1:PSET(I,1)51$, 
LLINE(L, d+1)-(1,18)52$:9=3#1:NEXT:PSET ( 
6,18251$:B0XF(13,13)-(39,18)S2#:LINE(IS, 
121-(38,12)S6$:PSET (39, 11)S18:PSET(Z9, 12 
152$ 
2122 IFAR(12) THENRA=1 : XR=20: YR=1 12 PSET (2 
0,11) RAD2$, 2: RC=0: RM=0 
2123 IFDCA(12) THENCD=1: XDCA=27e YDCA=11:P 
SET(27,11) DCAS,2:E0=-1 
2124 RETURN 
2129 ? tittisiiniinient 

à 13eme TABLEAU # 

LOUEUETOUU CUITE 
2130 BOX(0,23)-(39,24)52$,2,0:LINE (0,22) 
-(39,22)528,3:LINE(10,22)-120,22)62$,4,8 
:BOXF(0,21)-16,19)52$,3,0:BOXF (39,21)-(3 
3,19352$,3 
2131 J=12:11=0:FORI=39T0S4STEF-1:PSET (I, 
J)51$,1:PSET(I1,J)S3$:LINE(T.J+1)-(I, 18) 
S2#:LINE(TI,d+1)-(11,18)S2$:3=Jt1:11=11+ 
1:NEXT:PSET (33, 1B)S1$:PSET(8, 1B)53$ 
2132 LINE(7,19)-(9,21)638,2:LINE (32,19)- 
(30.21)S1$:LINE(7,20)-18,21)62$:LINE (32, 
20)-131,21)S2$:PSET (7,21}52$:PSET(32,21) 
52$ 
2133 PSET(O,11)6R$(44), 7: FORI=1TO37STEPS 
:LOCATEL, 11: PRINTPONTIS$:NEXT:FORI=1T037S 
TEP3:LOCATEI, 12:PRINTPONT2$:NEXT:LINE(I, 
133-(2,14)52$,1:LINE(38,13)-(37.14)S28:P 
SET (2,13)S28:PSET(37,13)52$ 
2134 COLOR7:FORI=13T015:FORJ=4T03SSTEP3: 
LOCATES, I: PRINTFONTS$:NEXT:NEXT: LINE (4,1 
8)-15,17)S28,1:LINE(3S,16)-(34,17)52$:PS 
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ET(5,18)524:PSET(34,18)952$ 
2133 COLOR7:FORI=16T018:FORJ=7TOS2STEFS: 
LOCATES, I: PRINTPONTS$2:NEXT:NEXT: LINE (7,1 
9)-(8,20)528,3:LINE(32,19)-(31,20)528:PS 
ET(B,19)52$:PSET (31,19) 52$:COLOR7:FORI=1 
9T021:FORJ=10T029STEP3: LOCATES, :PRINTPO 
NTS$:NEXT:NEXT 
2136 RA=0:RC=0: RM=0: RETURN 
2139 * titiitititnnetnnt 

t i4eme TABLEAU à 

LLRCHCE CID UTILE TE 
2140 BOX(0,23)-(39,24)52$,2,0:BOXF (0,22) 
-(35,19)528,3:BOXF (0,18)-(35,16)52$, 1:B0 
XF(0,16)-135,13)S2$:LINE (1,12)-(35,12)56 
$:PSET(0,12)S2$:PSET (0, 113638:PSET (35,12 
)53$ 
2141 IFEAU=1THENBOXF (36, 13)-(29,22)528, 4 
ELSELINE(36,22)-(39,22)52$,4,b 
2142 COLOR, O:RA=0:RC=0: RM=0: RETURN 
2149 * HSE 

t üene TABLEAU t 

LATOTCRT DOTE 
2150 BOX(0,231-(39,24)52$,2,0:CDLDR4, b: 1 
FEAU THENBOXF (0, 13)-(15,22) S2$ELSELINE (0 
,22)-(15,22)52$ 
2151 BOX(16,12)-(17,22)CHRS (127), 7,0: PSE 
T(1S,11)548:LINE (16, 11)-(17,11)S92$:PSET( 
18,11)55$: IFEAU=OTHENLOCATEL8, 21: PRINT" 


2152 IFAR(15)THENRA=1: XR=32: VR=22:PSET (3 
2,22) RAD1$, 2: RC=0: RH=0 
2133 IFDCA(1S) THENCD=1 : XDCA=26: YDCA=22:P 
SET (26,22) DCA$, 2:E0=1 
2135 YPF=21:RETURN 
2499 ? thititinnt 
à DEPART # 

. sisiiniti 
2300 IFVI=STHENFORI=0T09:FORJ=1707:COLDR 
Je LOCATE?1, 19:PRINT"ALERTE": PLAYNTIS:NEX 
T:NEXT:LOCATE21, 19: COLOR, O: PRINT" ï 
2501 J1=140:932=175:FORI=1. 37703. 07STEP. 2 
233=C0S(1)48+91:J4=SIN{T) 88+J2:LINE (31, d 
21-(33,94),7:PLAY"A9TAL70SSI":LINE (1,92 
)-(93,44),-1:NEXT:LINE(J1,92)-(151,92),7 
2502 PSET(19,22)6R$ (0), 8: FORI=0T0300: NEX 
T:LOCATE 18,22: PRINTHS (1) : FORI=0T0300: NEX 
T:LOCATE17,22:PRINTHS(1)5" "2FORI=0TO300 
2NEXT:LOCATE16,22:PRINTHS (1); " “:FORE=OT 
D300:NEXT 
2507 LINE (91,32)-(151,92),-1:F0RI=S. 07TO 


1,57STEP-, 2: J3=C0S (1) 88431: J4=SIN (I) 284) 
2LINE(1,22)-193, 34) ,7:PLAY"A9TA4L 70551" 
LINE (J1, 923-193, 94) ,-12NEXT 
2504 RETURN 
2599 ? sARNRIENENE 
à INDICATEURS # 
TICLLITIOTIT 
2600 LINE(0,0)-(0,23MU$,7,1:LINE-(39,23N 
US:LINE- (39, 0)MUS:PSET (12, L)MUS:LINE (25, 
01-125, 1)MUS: COLOR, 0 
2611 COLOR&:LOCATEZ, 1: PRINT"VIE(S): 
2612 COLORS:LOCATE14, 1: “à 
2613 COLORA:LOCATE27,0:PRINT"TABLEAU: 2" 
2614 COLOR3:LOCATE?, 0:PRINT"MUNITIONS: * 
2615 COLOR2:LOCATE27, 1:PRINTSCORE: 0" 
216 PSET(13,0)6R$(19), 12LINE (14,0)-(15, 
O1BRS(19),3:LINE(16,0)-(23,0)6R$(19), 2:P 
SET (20, 1)6R$(19) ,1:PSET (21, L)GRS(19),3:L 
INE (22, 1)- (28, )6RS 119) ,2 
2620 CONSOLES, 24: RETURN 
3909 * trttetteetEneteet 
t EXPLOSION PUMA à 
TETTETETIOILI ES 
4000 VI=VI-1: IFVI=00REAU=060TD401 0 
4001 LOCATES. 1: COLOR6: PRINTVI:FU=23:M1=2 
3:MIS=1:FUES1 : TMI=02BF=50: 60SUR26 1 6: 6070 
90 
410 SCREENS, 0, 0:CONSOLEO, 24: CLS 
4014 LOCATES, 20:PRINT" APPUYER SUP ACTION 
POUR REJOUER. . .":COLORE: ATTREL, 0: LOCATE 
9, 10:PRINT"SCORE: ": SC: COLORS 
4012 COLOR, 1:LOCATE11, S:PRINT'EAME OVER 
"2 IFABS (STRIG (0) } THENRUNELSE 4012 
4015 PLAY" AOT?LO4DORENIFASOLASL" 
4016 SCREENS, 0,0: CONSOLEO, 24: CLS: LOCATE? 
,IS:FRINT"LE COURANT VOUS À EMPORTE:":LO 
CATEB.18:PRINT"QUELLE TRISTE NOYADE ‘11" 
:60704011 
4017 SCREENS, 0, 0: CONSOLEO, 24: CLS: LOCATE? 
AS:PRINT" L'EXPLOSION DE LA RESERVE DE 
MUNITIONS À SOULEVE 500000 n3 DE SABLE 
tttu: GOTO4011 
4020 FORI=1T03:FORJ=1707: COLORJ:LOCATEX, 
Y:PRINTEPUS (1) :PLAYEPS: NEXT: NEXT: 60TD400 
0 
4030 FORI=1T03: FORJ=1T07:COLDRJ: LOCATECX 
.10:PRINTEPUS (13 3 EPUS (1); EPUS (1) : EPUS (1) 
:PLAVERS:NEXT : NEXT : 60704000 
4009 © HÉCIRISNNNNNENNANNENRESS 
à DEFINITION CARACTERES 1 
à GRAPHIQUES t 
PTTTITIOIIUII TELE TILE 
5000 DEFERS(01=170, 1,63,95, 149, 159, 127,4 
j . 
5001 DEFBRS(42=170,0, 129, 255, 124, 192, 0,0 
5002 DEFGRS (2)=0, 0,0,0,82,0,0,0 
5003 DEFGRS (3)=0, 4, 50, 148, 109, 148, 50, 4 
5004 DEFGRS (41=85, 0, 129,235, 128,3, 0,0 
5005 DEFGRS (5)=85, 128, 252, 250, 169, 249, 25 


4,130 

5006 DEFBRS (8)=0, 32, 76,41, 190,41, 7,32 
5007 DEFERS(7)=0,0,0,0,124,0,0,0 

5008 DEFBRS(81=85,0,3,4,7,5,3,4 

5009 DEFGRS (71-85, 128, 224, 18,240, 208, 224 
144 

5010 DEFGRS(10)=0,0,0,0,0,0,0, 0 

5011 DEFERS(112=0,1,2,5, 10,21, 42,85 

5012 DEFERS (12)=170,85, 170,85, 170,85, 170 
85 

5013 DEFGRS (133-128, b4, 160,80, 188, B4, 170 
85 

5014 DEFGRS (14)=170,85, 42,21, 10,5,2,1 
5015 DEFGRS(15)=170,84, 168,80, 180,64, 128 
0 

3 

5014 DEFGRS(18)=295, 129,129, 129, 255,129, 
129,255 

5017 DEFGRS(17)=238,0, 119,0, 187, 0, 221,0 
5018 DEFERS (181=34,85, 170,85,170,85, 170, 
85 

5019 DEFGRS(19)=0, 136, 204, 238, 238, 204, 13 
6,0 

5020 DEFGRS (201=0, 128, 192, 224, 228, 192, 12 
8,0 

5021 DEFGRS(21)=2,198, 190,92, 124,127, 207 
3 

5022 DEFBRS(22)=0, 193,29, 127,111,94,55,6 
5 

5023 DEFGRS (232210, 80,95, 126, 253, 232, 178 
8 

5024 DEFBRS (24)=0,0,70,81,0,118,62,63 
5025 DEFBRS(25)=0,0,212,150, 166, 168,248, 
252 

5026 DEFGRS126)=0,0, 18,0, 4,39, 111,63 
5027 DEFGRS(271<0,0, 24, 66, 68, 188, 252, 246 
5028 DEFGRS(28)=10, 18, 46,191, 126,58, 122, 
14 

5029 DEFGRS(29)=17, 52,28, 111,214, 44,89, 1 
b 

5020 DEFGRS (30)=8, 32,8, 206, 0, 212, 40,0 
5031 DEFGRS(31)=127, 228, 246, 246,255, 127, 
54,54 

5032 DEFGRS (32)=255, 35, 182, 54, 255, 255, 19 
2,192 

5033 DEFGRS 12322254, 111,175, 163, 255,255, 
151,157 

5034 DEFGRS(34)=7,13,13,9,9,251, 126, 195 
5035 DEFGRS(35)=192, 224, 224,32, 32, 144,24 
0,128 

5026 DEFERS (16)=84,99, 125,58, 62, 254,243, 
248 

5037 DEFGRS (371236, 36, 102, 102, 102, 255,25 
5,255 

5028 DEFBRS (381-255, 34, 255, 63, 15,7,7,3 
5039 DEFGRS (391-255, 34, 255, 252, 240, 224, 2 
24,192 

5040 DEFBRS(401=3,3,1,1,1,1,1,1 

5041 DEFGRS(41)=192, 192,128, 128,128, 128, 
128,128 
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REPAIRE 





S042 DEFGRS(42)21,1,1,1,1414141 
5043 DEFGRS(432=128, 128, 128,128, 128, 128, 
128, 128 
5044 DEFBRS (442-255, 34, 255,0, 0,0, 0, 0 
5045 DEFBRS(451=0,43, 127,255, 255,295, 127 
83 
5046 DEFERS (48)=0, 252, 238, 231,3, 231,238, 
252 
5047 RETURN 
5099 ? Hd ntNEtNtt 
à DEFINITION CHAINES DE à 
t CARACTERES ! 
TTITICIILELIE TONI 
5100 H$(1)=6RS (0) #6RS (1) :H8(2)=6RS(B)+ER 
S(9)2H8 (3) =6RS (4) 46R$ (5) 
5101 MIS=GRS(2)#GRS(TI4" "sN2S=" "AGRSCE 
)+6R$ (7) 


5102 S1$-GR$(11}:528=6R8 (12):S28<6RS 113) 


:54$-6R6 (14): S5$=6RS (15) :S6$=BRS (18) 
5103 FES=6RS(16):NU$=GR$(17):EF$=" 
5104 EPU$ (1)=6R$ (22) +6R$ (23) : EPUS(2)=6R$ 
(24)46R$(25) :EPUS13)=6R$(26)+6R$ 127) 
5105 EPMS(1)=6R$ (28) :EPM$(2)=6R$ (29): EP 
$(3)=6R$(30):CAMS=" "4GR$UILI+6RS (32) #6F 
(23) +688 (34)46R$ (35) :RAD1$=6RS (21) : RAD2 
$=6R$ (28) : DCA$=ERS (37) 
5106 PONT1$=6R$ (38) +6R$ (39) +GR$ (44) : PONT 
29-688 (40) +6R$ (41) : FONTIS=GRS (42) +6R$ (43 
}:MUNT$=GR$ (45) +6R$ (46) 
3107 RETURN 
9999 ? HIRESENITENRAER 

t PRESENTATION à 

LACET CETTE UT) 
6000 ATTRB1,0:COLORO, 3:FCR1=070200: COLOR 
« LLOCATE 10,5: PRINT" SUPER-PUMA":MEXT: AT 
TRBO, 0:RETURN 
6999 ? HÉRTÉRÉNEMRRRENTERENS 

à MISSION ACCOMFLIE 4 

HEBEISOERISERLERS 
7000 CONSOLEO, 24: SCREENS,0,0:CLS 
7001 ATTRBO,0:COLORS, 4 
7002 PRINT:FRINT"MESSAGE DU COMMANDANT D 
E LA BASE - STOP* 
7003 PRINT:PRINT'LE BARRAGE À EXPLOSE - 
STOP" 
7004 PRINT:PRINT"LA BASE ENNEMIE À ETE E 
NGLOUTIE - STOP* 
7005 PRINT:FRINT'TOUTES MES FELICITATION 
5 = STÈF" 
7006 PRINT:PRINT"P.S, :"; 
7007 IFCAM=OTHENFRINT" VOUS N’ETIEZ PAS 
OBLIGE DE“:PRINT"DETUIRE LE CAMION DE RA 
VITAILLEMENT ...*ELSEPRINT" BRAVE OUAND 
MEME sx" 
7008 PRINT :PRINT:COLORS, 0: ATTRB1, 0: PRINT 
"SCORE : “:SC: ATTRBO, 0 
7009 COLOR, 1:LOCATEZ, 23: PRINT"APPUVER 5 
UR <ACTION) FOUR REJOUER":IFSTRIB(0)THEN 
RUNELSE7009 


23 





OPERATION INITIATION 


el ATONE 
pour 590F TTC 


S SE TO7* neuf ! 


107 version BK fluré sans basic} 
QUERTY (sans accentuation française) 
Clavier sensiiif. Trols mols Ge garantie 
Élelgielnte = Kie(nie ste 

fre valable |Usqu'au 31 mars 1987 
dans la timite des stocks disponibles, 
(50 pièces au 1.287: 





BON DE COMMANDE à adresser à TEO, 26, rue Beaubourg - 75003 Paris 


ÉRIC Participation aux frais de port : 
50F par machine 
ACIÉSSOS RS A ne de tds ee Ua 
Nombre de machines | x 50F 
Code Postal NTÉ na a eme ere ee | 
RÉ DNONE NE em ce de Total TTC — 


Je joins mon règlement par : 
E Chèque bancaire CO CCP 


DOMINO 


Les règles ainsi qu’une démonstration sont incluses 
dans le programme. Ce sont les règles de la fédération 
intemationale qui sont appliquées. Vous jouez contre 
l'ordinatèur. On vous demande dans un premier temps 
en combien de manches se déroulera la partie. L'ordina- 
teur distribue les dominos, les siens sont cachés. I! 
contrôle qui commence la partie par exploration des 
doubles. Si aucun double n'est trouvé, c'est le plus fort 
des dorninos qui joue. Si l'ordinateur passe, il vous le dit. 
Pour passer, tapez “8,8” et ceci jusqu'à la pose com- 
plète des dominos ou bien jusqu'à ce que les deux 
joueurs passent trois fois de suite. C'est alors ta valeur 


des dominos qui donne la gagnant. 


Pour jouer, tapez la valeur du domino (par 8x. 6,5). 
Tapez ensuite le sens de pose avec une flèche. Inverser 


la flèche quand la jeu se déroule sur le bord. 


Michel Colace 


1 * DOMINO 

S CLS: SCREEN?, 0, 0 

10 CLEAR,, 50 

20 DIM D(28),D0(28),K(28),9(28),028),A 
(281 ,N (28) .K1 (28) ,91(28) ,ND(28), 1128) ,00 
$ (283,008 (28) ,0D15 (28) ,D01$ (28) , FF (28) 
30 FOR I=1 T0 28 

40 READ DCI), DO(I) 

43 COLOR? 

50 MEXT 

60 DIM W1(18),WN2(1B),WN3(18),MN4 (LE) ,W 
WS 118) ,NMB118).NN7(18),MHHEU 18) 

85 FORI=1 TO 17 

70 READ WULUI),HU2UI).MHSUL),NHACI) Mu 
SCI, WH6(II MNT CI) .WNB(I) 

75 NEXT 

100 * 

110 DEFGR# (12-255, 295, 192, 192, 204, 204, 19 
2,192: DEFGRS (21=192, 192, 204, 204, 192,192, 
255,255 

115 DEFGRS (3)=255, 255, 192, 192,192, 192, 19 
2,192:DEF6R$(4)=107, 199, 197,109, 102, 102, 
255,255 

120 DEFGRS(5)=255, 255,1, 1, 205,205, 1, 12DE 
F6RS(81=255, 255, 1,1,13,13,1,193 

125 DEFGRS(7)=255,255,1,1,13, 13,1, 1:DEFE 
RS(B)=255,255,1,1,1,1,1, 193 

130 DEFGRS(9)=255,255,1,1,1, 1,1, 1:DEFERS 
(101=1,1,205,205, 1, 1, 255,255 

135 DEFGRS(11)=198,1,13,13, 1, 1,255,255:D 
EFGRS(12)=1,1,13,13,1,1,255, 255: DEFERS (1 
3=193,1,1,1,1, 1,295, 255 

140 DEFGRS(14)=1,1,1,1,1,1,255,255:DEFGR 
8119-2955, 255, 128, 128,170, 179,128, 128: DE 
FGRS (161-255, 255, 128, 128, 176, 176, 128, 131 
145 DEFGRS (17)=255, 255, 128, 128, 178,176,1 


28,128: DEFGRS (181-255, 255, 128, 128, 128, 12 
8,128,131 

150 DEFGRS (1922255, 255, 128, 128, 128, 128,1 
28,128: DEFGRS (2012128, 128, 179, 179, 128, 12 
8,255, 255 

155 DEFERS(21)=131, 128, 178,176, 128, 128,2 
55,255: DEFGRS 122)=128, 128, 176, 176, 128, 12 
8,255, 255 

180 DEFGRS (231-131, 128, 128, 128, 128, 128,7 
55, 255: DEFGRS (241=128, 128, 128, 128, 128, 12 
8,255,255 . 

185 DEFGRS (2522255, 255, 3,23, 51,51, 3,3: DEF 
GRS(28)=255, 255, 3,3,3,3,3,3 

170 DEFGRS (27323, 3,51,51,2, 3,255, 255:DEF 
GRÉ(28)=3,3,3,3,3,3, 255,255 

171 DEFGRS (48) 2204, 204, 192, 192, 204, 204,1 
92,255 

172 DEFERS(29)=51,51,3,3,91,51,3,255:DEF 
GRS(20)=193, 193, 192, 204, 204, 197, 102,295 
175 DEFGRS(31)=192, 192, 192, 204, 204, 192, 1 
92,255: DEFGRS(22)=193, 193, 192, 102,492, 19 
2,192, 255:DEFGRS(33)=192, 192, 192, 192, 192 
,192, 192,255 

178 DEFGRS(34)=131,121,2,8,51,51,3,255:D 
EFGRS (35)=3,3,3,3,51,51,3, 255: DEFERS (36) 
=131,131,3,3,3,3,3, 259: DEFGRS (37)=3,3,3, 
3,3,3,5,255 

180 DEFGRS(381=255, 192, 204, 204, 192, 192,7 
04, 204: DEFBRS (39)=255, 192, 204, 204, 197, 19 
2,193, 193: DEFGRS (40) =255, 192, 204, 204, 192 
192,192, 192 

185 DEFGRS (411-255, 192, 192, 192, 192, 192,1 
93, 193: DEFGRS (42)=255, 192, 192, 192, 192,19 
2,192, 192: DEFBRS (4322255, 3, 51,51, 3,3, 51, 
si 

190 DEFGRS (441-255, 3,51,51,3,3,131,131:D 
EFGRS (45)=255,3,51,51, 3, 3, 3, 3: DEFGRE (46) 
=255,3,3,3,3,3,131,131:DEFGRS(47)=255,3, 
LIT 

200 DOS (7)=6R$ (1) #6R$15) 

202 DU1$(7)=6R$ (2)4#6R$ 110) 

204 DD$(71=6R$ (15) #6R$ (25) 

206 OD1#(7)=6R$ (20) 46R$ (27) 

210 DOS (8)=6R$ (1) #6RS (8) 

212 ODLS(61=6RE(2)+6R$ (11) 

214 ODS (6)=6RS (14) +6R$ (25) 

216 OD1S(6)=6RS (21) +6R$ (27) 

220 DOS (5)=6R$ 11) +6R$ (7) 

222 DO1$(5)=6R$ (2)+6RS (12) 

224 OD£ (5)=6R8 (17) +6R$ (25) 

226 OD1${5)=6R$ (22) +6R$ (27) 

230 DOS (41=6R6(1)+6R$ (8) 

232 DOLS(4)=6R$ (4)#6R$ (11) 

224 ODS (4)=6R$ (16) 46R$ (28) 

236 ODIS(4)=6R4 (23)+6R6 (27) 

240 DOS (3)=6RE(1)+6R$ (9) 

242 DOLS(2)=6RS(4)#6RE (12) 

244 ODS (3)=6RS (17) +6R8 (28) 

248 OD1$(3)=6R$ (24) +6R$ (27) 
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250 D0$(2)=6R$(3)+6R$ (8) 
282 DO1$(2)=6R$(4)+6R$ (13) 
254 OD$(2)=6R$ (18) +5R$ (28) 
256 OD1$(2)-6R$(23)+bR$ (28) 
260 DO$(1)=6R$ (3) +6R$ (9) 
262 DO1$(1)=GR$(4)+6R$ (14) 
264 OD$(1)=GR$ (19) +6R$ (26) 
26b OD1$11)=6R$(24)+6R$ (28) 
300 DO2$(7)=6R$(1)+6R$ (25) 
302 D035(7)=6R$ 148}+6R$ (29) 
304 0D24(7)=GR$(38)+BRS (43) 
306 OD3$(7)=6R$ (2}+GR$ (27) 
308 DO2$(8)=D028(7) 
310 DOZS(6)=6RS (T0) +6R$ (34) 
312 OD2$(4)=6R$ (39) +6R$ (44) 
314 OD3$(&)= 0D3$(7) 
316 DD2$(5)=D02$(7) 
318 DO3$(5)=6R$(31)+6R$ (35) 
320 0D2$(5)=6R$ (40) +6R$ 145) 
322 0D38(5)=0D3$ (7) 
324 D028(4)=6R$(11+6R$ (26) 
326 DOZS(4)=GR$(32)+6R$ (74) 
326 0D2$(4)=6R$ (39) +6R$ (46) 
330 OD3$(4)=6R$(4)+6R$ (27) 
332 D02$(3)=6R$(1)+6F$ 126) 
334 DOS (3)=GR$(33)46R# (35) 
336 002$(3)=6R$ (40) +6R$ 147) 
338 OD3$(3)=6R$ (4) +6R$ (27) 
340 DO25(2)=6R$(3)+6R$ (26) 
342 DOS$(2)=6R$ (32) +688 (38) 
344 OD2$(2)=6R$ (41) +bR$ (46) 
346 OD38(2)=GR$(33)+6R$ (37) 
348 DO2$(1)=6R$(3)+6P$ (26) 
350 DO3$(1)=6R$ (33) +6R$ (37) 
352 0D2$(1)=6R$ (42)+6R$ (47) 
354 OD3$(1)=0D3$ (2) 
360 IF XX={ THEN 370 ELSE GOTD 5100 
370 CLS:DD=0:C1=0:C2=0:C3=0: GA=0: V=0: M0 
sK=0: 920: DD=0: AA=G: BB=0: CC=0: OT=0: TL=0:C 
1=0:C2=0: C3=0:S5=0: TT=0: EB=0 
380 IF PJ=ME THEN 7430 
385 IF PO=MG THEN 7450 
392 SCREEN7.0,0 
396 CLS: SCREEN7, 0, 0 
398 A1$="* ‘a 
400 * TIRAGE 
402 ATTRBO.{:LOCATESS, 2: COLORS:PRINT "DO 
MINO" 
405 LOCATE 2,5:COLORE: PRINTPNS 
410 COLOR3:LOCATE?, 7: INPUT'Conbien de do 
ainos voulez vous 8 HAXI":ND 
420 ATTRBO, 1 :COLOR?:LOCATE, 15: INPUT" Don 
nez un nombre compris entre { et 30 pou 
r effectuer un tirage aleatoire .…. ATT 
ENTION plus le nuserc sera eleve le mel 
ange des dominos sera long";X 
420 CLS:ATTRBI, 1:LOCATE 2,2:COLOR3: PRINT 
* UN FEU DE PATIENCE JE MELANGE 
LES DONINOS" 
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435 LOCATEZ,18:COLORS:ATTRBO,{:PRINT" 

. Colace Montivilliers mars 86 
Telephone 33.30.38.64" 

440 FOR T=1 TO X 

445 FOR I=1 TD ND42 

450 A=INT (RNDY28) #1 

460 IF [=1 THEN 330 

470 1=0 

480 FOR J=1 TO 1-1 

490 IF ACDN(J) THEN 510 

500 Z=1 

510 NEXT J 

920 IF 2=1 THEN 450 

330 N{1)=A 

940 NEXT IT 

530 1=0 

260 FORI=1 TO ND-1 

970 IF NUI)N(I+1) THEN 620 

380 A=N(I) 

590 N(I)=N(I+1) 

&ù0 N(I+1)=A 

610 2=1 

b20 NEXT I 

630 IF 2=1 THEN 550 

850 1=0 

&ë0 FORI=ND+1TO ND? -1 

870 IF NUDD{N(I+1) THEN 720 

880 A=N(T) 

890 N(I)=N(1+#1) 

700 H(I+1)=A 

710 2=1 

720 HEXT ] 

730 IF Z2=1 THEN 650 

750 CLS 

790 CLS:ATTRBO, 0 

800 * DISTRIEUTION DES DOMINOS 

810 FOR I=1 TD ND 

820 COLOR4, 4:LOCATE 1+2,1:FFINTDO$ (DIN(I 

1)}+0D$(DO(N(T))) 

830 LOCATE f+2,2:PRINTDO1S(D (N(I}))+0D1$ 

(DO(N(T))) 

840 Z=17+5 

850 COLORS.0:LOCATE 1,0:PRINT"Tirage de 

l'ordinateur T07* 

893 NEXT 

837 7=0 

860 FOR I=ND+1 TO ND8? 

870 COLOR, b:LOCATE 1+7,.10:PFINTDOS$ (D(NI 

1))}+0D$(DD(N(1))) 

B80 LOCATE 1+2,20:PRINTDO1S (DENCI) })+0D1 

$(DO(N(T))) 

890 2=2+5 

900 COLCR2,0:LOCATE 1,22:PRINTUSINGAIS:F 

N$:: PRINT" votre tirage" 

910 MEXT 

915 IF PJ{)0 OR POK)0 THEN BO00 

020 ? QUI COMMENCE 

923 IF NULICHEND+1) THEN A=2:LOCATEI, B:P 

RINT'JE JOUE" ELSE A=4 :LOCATE1. 6: PRINT" 


26 


À TOI DE JOUER" 

930 IF A=2 THEN K=D(N(1)}:d=DD(N(1)) 

935 IF A=4 THEN K=D(N(ND#1}) : J=DO(N(ND+1 
)) 

940 COLOR4, 8 

980 LOCATE18, 10:PRINTDOS (K)+0D$ 13) 

990 LOCATE18, 11: PRINTDO1# (K)+001$ (3) 
993 FORI=1 TO 1500:HEXF 

993 COLORO,0:LOCATE 1,6: PRINT" 


9086 IF A=2 THEN DIN(1))=G:D0(M(1))=0 

008 IF À=4 THEN DEN(ND+1))=0: DOCNIND+1) } 
=Ô 

1000 60OSUB 4500 

1010 COLDRO,O0:LOCATE 1,19:PRINT" 

1015 LOCATE1.23:COLORO. 1:PRINT"Pour gagn 
er il faut “:M6:" de manches" 

1020 COLORO,0:LOCATE 1,20:PRINT" 


1030 COLORO,O0:LOCATE 1,2: PRINT" 


1040 COLORO,O0:LOCATE 1.1:PPRINT" 

1050 Z=0:W=0:Y=0: Y1=0:H1=0 

1060 COLOR1,4:LOCATES, 16: PRINT“Nonbre de 
sanche par "::PRINTUSINGAZ$: PN$: : PRINT" 
"Pl 

1070 LOCATE1,5:COLORS, Z:PRINT"Nontre de 

sanche gagnee par T07 ":P0 

1080 ATTRBO, 0 

1090 IF PJ =M6 OR FO=MG THEN 7400 

1100 FORI={ TO MD 

1110 COLOR4, 4:LOCATEN+7,1:PRINTDOS (D(N(I 
)))+0D$ (DD(N(1))) 

1129 LOCATEN+Z,2:PRINTDD1$ (D(N(1)))+0D1$ 
(DD(N(1))) 

1130 2=1+5:NEXT: 1=0:2=0: PLAY" 0561" 

1159 FORI=ND+1 TD ND82 

1160 COLOR4, 6: LOCATEL+2, 19: PRINTDOS (D(N( 
1))}+0D$ (DO(N{1))) 

1170 LOCATE1+7,20:PRINTDO1S{(DIN(I)))+#0D1 
$(DO(N(I))) 

1180 2=2+5:NEXT:1=0:2=0:PLAY"O5MI" 

1190 IF A=2 THEN 2000 

1200 * L'ORDINATEUR JOUE 

1210 U1=0:U2-0:U3=0: U4=0: U9=0: 61=0 

1220 FOR 1=1 T0 MD 

1220 IF K=DUN(I)) AND KOMDO(N(I)) OR K=D 
(N(I)} AND K=DO(N(1)) THENUI=1:60T0 1280 
1240 IF K=DO{N(I))AND K£HD(N(I)) THENU2= 
I:60T0 1200 

1250 IF J=D(M(I)} AND JC>DCIN(I)) O8 d=D 
{NCI)) AND J=D0(N(I)} TRENUZ=1:60T0 1300 
1260 IF J=DD(N(I)) AND JCD(N(I)) THENUA 
=]:6070 1310 

1270 NEXT 

1280 IF U1<39 THEN W=D0(N{UL)):Y=D(N(U1) 
}sl=-4:K=N :0=0-1:6070 1320 
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1290 IF U2C)O0THEN H=D(N(U2)): Y=DO (N(U2)) 
sL=-4 :K=W:G=0-f: GOTO 1320 

1300 IF U3COTHEN W=D(N(UZ)} : Y=DO(N(UZ)) 
:L=4:J=Y:0=0-1:6070 1320 

1310 IF U4€>0 THEN W=DO(NUU4) } : Y=D(NCUA) 
JeL=4:J=Y 

1320 U9=Ut+U2+U3+U4 

1222 DIN(U9) }=0: DO (N (US) }=0 

1320 D(M(U9) }=0: DO (N{U9))}=0 

1340 A=4 

1350 FORI=1 TO ND 

1360 IF D{NII))=0 AND DOUN(I))=0 THEN 
61=61+1 

1370 NEXT 

1380 IF U9=0 THEN LOCATE 1,2:COLOR1: PRIN 
T'Je passe": FORI=1 TO 1500:NEXT:LOCATE!, 
3:PRINT” “:DD=DD+{:W=0: Y=0: 6070 2 
000 ELSE DD=0:1=0 

1390 G0TO 000 

2000 * LE JOUEUR JOUE 

2005 L=0:WW=0:CC=0:EE=0:62=0 

2050 CONSOLEA, 4: COLORS, 0: LOCATE!, 4: INPUT 
* QUEL DOMINO":W1,.v1 

2092 W=WI+{:Y2Vi+1 

2069 CONSOLEO, 24 

2065 IF W=>8 AND Y=}8 THENDD=DD+1: 607039 
00 ELSE DD=0 

2070 COLOR2,0:LOCATEZ1, 4: PRINT" QUEL SEN 
ç* 

2080 FORI=1 TO 1500 :MEXT 

2100 O$=INKEYS 

2110 IF O$ =CHR$S(E) THEN E=-4 

2120 IF O$ =CHR$(9) THEN L=4 

2130 IF L=0 THEN 2100 

2132 COLORO, 0: LOCATEI, 42: PRINT" 


2135 GOSUB 3700 

2137 IF WW=1 THEN 2000 

2140 IF L=-4 THEN K=W 

2150 IF L=4 THEN J=Y 

2160 A=2:M=0 

2170 FOR I=ND+1 TO NDt2 

2180 1F 4H =D(N(II)AND Y=DO(N(I)) THEN D( 
N(I))=0:DOIN(I))=0:60T0 2250 

2190 IF Y =D(N(I))AND W=DO(N(1)) THEN D( 
N(1))=0:DO(N(I))=0:G0TD 2250 

2210 NEXT 

2250 FORI=ND+1 TO NDI2? 

2260 IF DEN(I))=0 AND DD(N(I))=0 THEN 
62=62+1 

2270 NEXT 

2285 1-0 

2200 FORU=ND+{ TO NDt2? 

2300 COLOR4. &:LOCATE1+7, 19:PRINTDOS (D EN( 
U}} }+0D$ (DO UN (U))) 

2319 LOCATE1+Z, 20:FRINTDO1$ (D (NEU) 3 )+Qpi 
$ (DO (NU) }) 

2320 2=74S:NEXT 

3000 * PLACEMENT 


3010 IF Ci=-16 OR SS=1 THEN IF L=-4 THE 
N 3300 

3020 IF C2=}18 OR TT=1 THEN IF L=4 THEN 
3400 

3030 IF L=-4 THEN Ci=C1#L:C3=C1 

3040 IF L=4 THEN C2=C2+L:C3=C2 

3090 COLOR4,8 

3100 LOCATE1B+C3, 10: PRINTDOS (NW) +0D$ (Y) 
3110 LOCATEIB4C3, 11: FRINTDD1$ (N}+0D1$(Y) 
3125 IF A=4 THEN A=2 ELSE A=4 

3130 G60TO 1000 

3300 IF AA=1 THEN 3500 

3310 AA=AATI 

3320 COLOR4,6:LOCATE ?,6:PRINTDO2$ (4) 
3330 LOCATE 2,7:PRINTDO3$ (W) 

3340 LOCATE 2,8:PRINTOD2$(Y) 

8350 LOCATE 2,9:PRINTOD3S (Y) 

3355 IF A=4 THEN A=2 ELSE A=4 

3360 G0TO 1000 

3400 IFBB=1 THEN 3600 

3405 IF A=4 THEN A=2 ELSE A=4 

3410 BB=BB+1 

3420 COLDOR4,6:LOCATE 36,12: FRINIDO2${U) 
3430 LOCATE 36, 17: PRINTDO3$ (W) 

3440 LOCATE 36, 14:PRINTOD2$() 

3450 LOCATE 36, 15:PRINTODSS {V) 

3460 GOTD 1060 

3300 IFL==4 THEN L=4:C1=C14L:C3=C1: 99=1 
3910 LOCATEB+CS, 8: PRINTODS$ (Y) +0D$ (W) 
3920 LOCATEL6+CS, 7: PRINTDO1#(Y)+0D1$ (W) 
3530 IF A=4 THEN A=2 ELSE A=4 

3540 G0TO. 1000 

3600 IFL=4 THEN L=-4:C2=C2+L:C3=C2: TT=1 
3610 COLDR4, 6: LOCATE20+C3, 14: PRINTDO$ (Y) 
+0D$ (W) 

3620 LOCATEZ0+C3, 15:PRINTDO1$ (V) +0D1$ (W) 
3630 IF A=4 THEN A=2 ELSE A=4 

3640 GOTO 1000 

3699 END 

3700 ? CONTROLE DES DOMINOS 

3705 EE=0 

3712 IF K=Y AND L=-4 THEN EE=1 

3718 IF J=W AND L=4 THEN EE=2 

3720 IF EECYOTHEN 3735 ELSE WW=0 

3728 LOCATE 0,17: COLDR2, 0: PRINT" Vous ne 
pouvez pas jouer le donino":W1:Y! 

3730 FOR I=1 TO 1500:MEXT 

3732 .CDLORO,O:LOCATE 0,17: PRINT" 

3735 6010 2000 

3740. COLOR7, 0 

3739 FORI=ND+1T0 ND42 

3757 1FW#D(N(I)) AND Y=DD(N(I)) THEN CC= 
{ 

3760 IFY=D(N(I)) AND W=DDUN(I)) THEN CC= 
2 

3787 MEXT 

3700 1F CC=0 THEN LOCATE 2,17: COLOR6,0:P 
RINT"Vous ne possedez pas le donino":H1; 
Yi ELSE 3850 


3810 _FORY<1. T01500:NEXT 

3820-COLORO, O:LOCATE 0,17:PRINT" 

3825 GOTO 2000 

38270 RETURN 

3900 LOCATE 1,3:COLDRI,0:PRINTPNS:" pass 
e" 

3910 FORI=1 TD 1500:NEXT 

3913 LOCATES,3:C0LOR6, 0: PRINT" 


3915 IF DD=)2 THEN 4000 

3917 IF A=2 THEN A=4 ELSE A=2 

3920 DD=DD+{: GOTO 1000 

4000 * LA PARTIE EST FINIE 

4002 CLS 

4005 2=0 

4010 FOR I=1 TO ND 

4020 IF DIN(I3)€30 THEN TL=TL4DINII))-1 

4030 IF DO(N(I))€)0 THEN TL=TL#DO(N(I))- 
i 

4032 COLOR4,6:LOCATEI+Z , 1: PRINTDOS (DIN( 
[1134008 (DD(NCT))) 

4034 LOCATES+Z ,2:FRINTDO1S (DIN(I) ) )+0D1 

$CDDEN(I)) 

4038 2=245 

4040 NEXT:ATTRBO, :LOCATEL, 4:PRINT"LES D 

OMINOS DE L'ORDINATEUR" 

4045 2-0 :ATTREO, 0 

4050 FOR I= ND+1 TD ND#2 

4060 IF DIN(I))4>0 THEN OT=OT#D(N(I3)-1 

4070 IF DO(N(IY))0 THEN OT=OT#D0{N(1))- 
I 

4085 COLORA, &:LOCATEL +7, 18:FRINTDOS (DUH( 
133 )+0D$ (DO(NED))) 

4087 LOCATE +2, 10:PRENTDD1£ (D(MCI) })+0D1 
S(DO(N(13)) 

4090 2=745 

4095 NEXT:ATTREO, 1:LOCATEL, 16:PRINTENE: 
VOS DOMINOS" 

4110 LOCATEN,8: PRINT'Total TO 7 ": 

TL 

4120 LOCATEN, 12:PRINT"Total "::PRINTUSIN 

GAZS:PNE:: PRINT" ":0T 

4149 IF OTTL THEN Ga=1 

4150 IF OT£TL THEN GA=2 

4160 IF OT=TL THEN GA=3 

4170 FORI =1 T02000:NEXT 

4499 GOTD 4700 

4500 * CONTROLE DU GAGNANT 

4510 FORI=1 TO ND 

4520 IF DUNCI))C)OTHEN 4550 

4530 NEXT 

4540 V=1 

4550 FORI=ND+1 TO ND42 

4580 IF DEN(I))£) O THEN 4590 

4570 NEXT 

4580 M=1 

4590 IF M=1 OR Y=1 THEN 4600 

4595 RETURN 

4600 IF M=1 THEN Gh=? 
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4610 IF V=1 THEN GA=1 

4700 IF GA=1 THEN PO-PO+1:PE=1 

4710 IF GA=2 THEN PJ=PJ+1:PE=2 

4720 FORI=1 TD 200C:NEXT 

4725 RESTORES000 

4730 FORI= 1 TO 28 

4740 READ D(1),D0(1) 

4750 NEXT 

4800 CLS 

4810 IF BA=1 THEN ATTFREC, 1: COLOR, b:LOCA 
TE 1,2:PRINT"C'est aoi qui gagne cette na 
anche" 

4820 IF GA=2 THEN ATTREG, {: COLOR4, b:LOCA 
TE 1,2: PRINTUSINGAZS:PN$:: PRINT" qui gag 
ne cette manche" 

4830 IF GA=3 THEN ATTPBO, 1: COLOPA, b:LOCA 
TE 1,2:PRINT" Manche annulee car La valeu 
r des dominos est egales" 

4840 XX=1: GOTO 100 

4900 END 

5000 DATA 7,7,6,6,9, 5444529 a29291aly ta 
CAR PCR ECS ER 
2,5,3,6,1,5,2,4,3,5,1,4,2,4,1,3,2,3,1,2, 
! 


3100 * EXEMPLE 

3195 60SUB 6000 

3200 FORI=1 TD 17 

3203 COLORO,0:LOCATEL, 4: PRINT" 


5210 IFWWB(1)<)0 THEN 5230 ELSE 5300 
9230 LOCATE2, 4:COLDR2,0:PRINT'"Quel donin 
0": :FORH=1TOS00:NEXT:PLAY"OSRE": PRENTHNI 
(D-15°","5W#2(1)-1:FORH=1TOSCO:NEXT : PLAY 
"OSHI" 

3240 LOCATE 20,4:C0LORS,O:PRINT"Quel sen 
5 "32 FORH=1TOS00:NEXT: PLAY "FA": PRINTCHR 
$122); CHRS {HZ CI): FORH=1 TOIOO0:NEXT: PL 
AY"D0DO" 

5250 IFWUB(1)=3 THEN LOCATEZ, 18: COLOR, 0 
:PRINT'A partir de ce moment il faut inv 
erser la valeur des doninos:OBSERVEZ BI 
EN “:FORH=1 TO1500:NEXT 

9289 IF WWB(I)=1 THEN 3200 

9270 IF NWB(I)=2 THEN 5400 

9280 IF WWB(1)=3 THEN 5500 

5200 IF WWB(I1=4 THEN 5600 

5200 LOCATE NWZ (1). 4W4 (1) :COLOR4, 6: PRINT 
DOS (WI (TI) )+0D$(WW2(1)) 


"5310 LOCATE HAS) .WW6 CI) :PRINTDO1S (HU ( 


D) }+0D1$(WW2(1)) 
9320 6070 5650 
3400 LOCATE HHZ(I),HW4C1) :COLORE, 6: PRINT 
DO2# (WI (T9) 

9410 LOCATE WWTUI),WN4 (1) +: PRINTDDSS (4 
HD 

9420 LOCATE WHSCI) ,WNBUT) : FRINTODZ$ (HW2( 
1)) 

9430 LOCATE NWS(1),HHB (13 +12: PRINTODSS (4 
2} 

3440 6010 5650 
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9900 LOCATE WWZ (I). UMA CT) : COLDR4, 8: PRINT 


DO2$ (WI (1)) 

5910 LOCATE NS UCI) ,WW4 CT) +1:PEINTDOZS (HU 

1(1)) 

5520 LOCATE WWS (I). UNS (I) 2 FEINTOD26 (MU 
1) 

Sac6 LOCATE MWS(I), HMS (1) +1: FRINTODSS (HW 

20) 

Sa40 60T0 5650 

5600 * 

J6i0 VY=WWI!I):72=HH2(1) 

5630 LOCATE WWÈ{T) ,HW4UT) 2 COLORA, £e FRINT 

DO#!27)+0D#£(Vv) 

5640 LOCATE NWS(1).WW& (I): FRINTDD1$(721+ 
OD1$ VV) 

5650 MEXT I 

5660 YYX=1 

5700 GOTD 19€ 

5000 END 

&0CQ * FRESENTATION 

8010 LOCATEN 1,1: ATTREO, 1: COLOF4, 6: PRINT" 
DE MAT NE" 

8020 ATTERO, D: LOCATEN. 3: COLORE, Q: FRINT"L 
e jeu de domino conciste a placer les d 

oninos les uns à cote des autres tout e 

n respectant les valeurs qui doivent € 

tre egales . exemple. ....." 
6028 LOCATE14,9:COLOR?, 0: PRINT" 
ing" 

6030 COLOR 4, 6: LOCATE 16, 10:PRINTDO# (7) +0 
D$ (7) 

6G3S LOCATE 18, 11:PRINTOO1$ (7)+0D1${7) 
6037 FORI=1 TO 2000:NEXT 

6040 LOCATEZ, £0:COLDR4, 0: PRINT "OUI --}" 
6050 COLOR4,6:LOCATE 5,10: PKINTDOS (5) +0D 

#(7) 

8055 LOCATE 9,11: FRINTDO1$ (3) +001#(7) 
&060 LOCATE3Z, 10: COLDRI, O2 PRINT"{--NON" 
8070 COLORA, 8:LOCATE 27, 10:FRINTDDS (4) +0 
D$ (7) 

607% LOCATE 27,11:FFINTDO1# (4)+001$(7) 
B08Q LOCATEL, 13: COLORS, 0: PRINT "Vous alle 
z voir un exenple.Observez biensurtout q 
vand les domino arrivent aux  extremite 
s de l'ecran“ 

6090 LOCATEL, 19: COLOF6,0: INFUT"En combie 
n de manche voulez-vous faire a partie 
? En principe une partie 5e deroule e 
n # aanches gaonantes",M6 

6100 CLS 

6110 LOCATELI,1:ATTREO, 1:COLDR4, 8: PRINT" 
DONINQ" 

b120 LOCATES, 2: COLOR?,G:PRINT'L'ordinate 
ur controle qui doit commencerDans les r 
eqles c’est !e double 6 puis le double 
setc,..Si aucun double, c’est la valeur 
du domino la plus forte. L'ordinate 
ur pose le 1 er domino." 

6120 LOCATE, 13: COLORS, G:FRINT"Ensuite € 
‘est le perdant qui commence, On peut n 


28 


ler dom 


ettre le domino de son choix." 
6150 LOCATEZ0,20:COLORI  :ATTRBO, 0: PRINT 
“Si vous etes pret appuyer sur entree” 
6160 WS=INKEVS 
6170 IF N$=CHF#(13) THEN 6180 ELSE 6160 
6190 CLS 
6190 LOCATES, 1: ATTRE1,0:COLOF4, 6: PRINT" 
EOMINE ":ATTREO,! 
6290 LOCATE1. 1: COLOR, 0:PRINT"L* DRDINATE 
UR CONTRGLERA SI LE COUP QUE VOUS VOULE 
T JQUEF EST COFRRECT.SINON IL REFUSEFA 
E COUF,SI VOUS VOULEZ PASSER METTRE COM 
ME VALEUR 5,6" 
b219 LOCATEI.9:COLORS,0:PRINT'Pour gagne 
r une manche il faut :6o0it Poser tous 
ces domino Au cas qu 
les joueurs passent c'est en totalisant 
la valeur des dominos.Dans ce cas c'est 
le nonbre le plus faible qui” 
621! LOCATEN.19:FRINT"qui gagne La manch 
e et ainsi de suite jusqu’au nombre de 
manches demandees" 
6250 LOCATE2,22:CO0LO0R1 :ATTRBO,O:PRINT" 
Si vous etes pret appuyer sur entree" 
£280 G#=INÉEYS 
6270 IF S$=CHRS$(13) THEN 6200 ELSE 6260 
8289 CLS 
6206 LOCATEI, 2: ATTRBO, 1: COLDRS, O: PRINT"F 
our jouer vous devez indiquer les deux v 
aleurs EX6,3 5,5 1,5 etc. et ENTREE. PF 
our le sens 5e servir soit de la flecheg 
auche ou droite ” 
6250 LOCATEI, 12: COLOR, 6: INPUT" Votre ore 
nom 5,V,F.":PNS$ 
6360 AI$="Z 4° 
6420 ATTREO, O:CLS:SCREEN7, 0, 0 
6430 LOCATES,2:COLORI,7:FRINT" Voici un e 
xeaple." 
8440 RETURN 
1006 DATA 7,7,18,10,18,11,0,0,8,7,14,10, 
14,11.44,1,7,3,22,10,22,11,46,1,3,3,2b,1 
0,286,11,46,1,8.8,10,10,10,11,44,1,1.8,6, 
10,6,11,44 ak 30,10,50,11,46,1 
7010 DATA 5934 10,84,11,46,1,1 1,360, 
2,11,44,1,7,1,2,6,2,8, 44, 2 
702% DATA 5.4,36,12,36,14,46,3,2,7,4,8,4 
70444,4,8,32,14,32,15,46,4,1,2,B,6,8,7 
144,4,3,1,28,14,28,15, 46, 4 
7030 DATA 1,4,24,14,24,15,46,4,5,1,12,6, 
12,7,44,4 
7400 CLS 
7450 IFPOPJ THEN ATTABO,0: LOCATE?, 2: CD 
LORS, O:PRINT * BRAVO ":PN$ ELGE 7450 
7435 LOCATE 2,4:COLOF2,0:PRINT"VOUS VENE 
2 DE BATTRE ":PN&:° AVEC ":PO-PJ:" MANCH 
ES D° AVANCE" 
7450 IFFO<PJ THEN ATTRBOQ.{: LOCATEZ,2:C0 
LORZ,O:PRINT * BRAVO TO7 VOUS VENEZ D 
E BATTRE “es PRINTUSINGAZS : PN$: :PRIN 
T° PAR ":PJ-PO:" MANCHES" 
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7300 END 

8000 * LE PERDANT COMMENCE 

8005 IF PE=2 THEN COLOR2.0:LOCATEN, 6:PR 
INT"C'est aoi qui comsence" ELSE COLORS, 
0:LOCATEL, 6: PRINTUSINGAZS; PN$:: PRINT" tu 
cormences" 

8007 FORH=1 TD 2009:NEXT 

8019 IF PE={ THEN 8050 

8920 K=DIN(1)3:J=DO(N(1)) 

8030 D{N(1)3=0:DO UNI) )=0:A=2 

8040 6OTO 8100 

8030 CONSOLE4, 4: COLORS, 0: LOCATE!, 4: INPUT 
" QUEL DOMINC'": WI, VI 

8060 CONSOLEO. 74 

8070 K=W1+i :3=YI+1:A=4 

8080 FORI=ND+1 TONDI2 

8085 IFDIN(E))=K AND DOUN(I))=3 THEN U5= 
J:60TD 8090 

8088 1FDOUN(I}}=K AND DINCIH)=9 THEN U= 
1: 60TDB090 

8087 NEXT 

8000 IFUS£)0 THEN D(N(UE) }=0: DD (N{US) }=0 
8092 IFU6C30 THEN DO(N{U&))=0:D (NÎU6) )=0 
8095 US=G:U6=0 

8100 COLOR4, 6: LOCATE18, 10: PRINTDOS (K) +D0D 
#3) 

8110 LOCATEIB, 11: PEINTOD1$(K)+0D1$ (3) 
8120 LOCATE!, 6: COLORO, 0: PRINT" 


8130 FORI={ TD 3000: NEXT 
8290 6OTO 1000 
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JP FERRAND a bien voulu offrir aux lecteurs de TEO le 
compte rendu succint de quelques séances de travail 
réalisées en Micro-Prolog dans un établissement scolai- 
re. La manière dont le processus de consuction, de 
représentafon et d'exploifañion de la connaissance se 
trouve élayé et soutenu y apparait dans foufe sa 
lumière. Rien d'étonnant à cela car, à la différence 
d'autres langages, Prolog n'est que la projection logi- 
cielle directe du fonctionnement de l'inteligence en 
Suañon d'apprenlissage et en situation de démonstra- 
fon. C'est ainsi que, pour nous, maïfriser un concept 
opérafoire en maïñère d'enseignement ce n'est ni en 
récifer l'énoncé, ni même l'appliquer, c'est être capa- 
ble de construire le paquet de clauses Prolog qui en fai 
un préaicat articulé à la fois au réel observable et aux 
autres prédicais plus ou moins hlérarchisés des 
domaine de savoir considéré. 


Trois établissements scolaires de Cavaillon utilisent, 
dans le cadre d’un projet pédagogique commun, entre 
autres outils “informatique”, le langage MICRO-PRO- 
LOG avec le module SIMPLE écrit par Jean-Jacques 
Achard, formateur informatique de l'Académie d’Aix- 
Marseille. Ces trois établissements (Lycée Professionnel, 
Lycée polyvalent 1. Dauphin et collège Clovis Hugues) 
bénéficient du soutien technique et pédagogique de 
l'antenne du Centre de Ressource Informatique et des 
Technologies Nouvelles installée dans les locaux du LP 
de Cavaillon. 


L'expérience qui va être relatée a été réalisée avec des 
classes de secondes. Leur professeur, Monsieur Henri 
Daniel, accepta volontiers que ses élèves soient initiés 
au langage Micro-Prolog afin de tenter de vénifier que ce 
langage pouvait être un outil favorisant, voire facilitant 
l'acquisition des connaissances propres à son enseigne- 
ment. L'une des activités des élèves se révéla particuliè- 
rement propice à l'emploi de Micro-Prolog. M. Daniel, 
ayant fait effectuer des relevés phytogéographiques sur 
le terrain, nous décidâmes d'exploiter ce thème pour la 
création d'une base de données qui serait explorée par 
une série de règles que les élèves rédigeraient eux- 
mêmes. 


La premiére séance fut immédiatement consacrée à 
l'écriture de Faits (clauses simples). Une vingtaine de 
minutes avaient suffi pour expliquer le chargement du 
langage et les quelques notions générales qui permet- 
tent de mettre en oeuvre le système. 

10 chènes verts ont été comptés dans la strate arbustive 
pouvait se traduire par : 


strate-arbustive(chène-vert 10) 


ou 
strate[arbustive chène-vert 10) 


immédiatement, l'accent était mis sur la notion de repré- 
sentation de la connaissance. En effet, la structure des 
faits de la base de données allait dépendre de l'exploita- 
tion ultérieure que l'on escomptait en faire. La permière 
formulation permettrait uniquernent d'obtenir la liste des 
espèces de la strate arbustive par la question quel (X 
strate-arbustive{X Y)). !! faudrait créer d’autres prédicats 


strate-herbacée, strate-arborescente, strate- arboirée. 
La liste de toutes les espèces ne s'obtiendrait que par 
trois, voire quatre interrogations. La deuxième formula- 
tion, permettrait d'obtenir la liste de toutes les espèces 
par la question quel (X strate{Y X Z)). Cette prise de 
contact permit également de familiariser les élèves avec 
la notion d’instanciation de variables, notion rapidement 
assimilée. Sur une base de faits respectant la structure 
suivante : 


relation(strate espèce effectif) 


exemples : strate(arbustive chène-vert 10) 
stratelherbacée thym 18) 


les élèves furent amenés à traduire en Micro-Prolog les 
questions que nous leur posions. 


en français : dans la syntaxe 
: Micro-Prolog 


Quelles sont les espèces quel (X strate 
dela strate arbustive ?  : arbustive XV) 


Quelles sont les espèces et quel ((X Y) 
les effectifs delastrate  : stratefherbacéeX Y)) 
herbacée ? : 


Quelles sont les strates, les : quel(X YZ) strate (XYZ) 
espèces de chaque strate et: 
les effectifs ? ; 


Est-ce que le thym se trouve: ??2(stratelherbacée 
dans la strate herbacée ? _: thymX)) 


CORTEX 


Micro Prolog et Sciences Naturelles 


Par Jean-Pierre Ferrand, présenté par À, Biancheri 





Deux séances d’une heure furent nécessaires pour que 
la création de bases de données par les commandes ai 
et ac ainsi que l'interrogation de ces bases par les 
primitives quel et ? ? ? (est-ce que) ne présentent plus 
de difficultés majeures. Quelques parenthèses étaient 
parfois oubliées mais la syntaxe fut rapidement admise. 
La troisième séance permit de mettre au point la base 
de données qui allait contenir les renseignements 
recueillis au cours de l'étude botarique réalisée sur le 
terrain. Chacune des espèces de l'étage mésoméditerra- 
néen serait “entrée“ comme l'un des arguments définis- 
sant le prédicat relevé, un argument numérique indique- 
rait pour toutes les espèces leur présence (1) ou leur 
absence (0} sur le terrain étudié, un troisième argument 
préciserait la strate, un quatrième l'effectif. Voici les 
deux premiers faits de la base de données. 

{1} relevé (chène-vent 1 arborescente 10) 

(2) relevé (chène-pubescent 0 arborescente 0) 

Le fait (1) signifie que le chène vert étaient présent (1) 
dans la strate arborescente avec un effectif de 10 unités. 
Le fait (2) signifie que le chène pubescent, que l'on aurait 
pu trouver, était absent (0) de la strate arborescente. 
Naturellement, l'effectif est O. 

Dans un premier temps, les élèves interrogèrent leur 
base de données. 


en français 
Quelles sont les espèces présentes dans la strate arbo- 
rescente et les effectifs ? 

En Micro-Prolog 

Quel (X Y) relevé(X 1 arborescente Y)) 
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CORTEX 


Le même travail fut effectué pour extraire de la base de 
données les espèces et les effectifs de la strate arbustive 


et herbacée. releve (psoralee © herbacee 0) 
; releve (inmorteile © herbacee 0) 
quel {{Y) relevé(x 1 arbustive Y) releve (panicaut © herbacee 0) 
quel {(X Y) relevé (X 1 herbacée Y)) releve (teucrium © herbacee 0) 
8 ; < 1 (sarriette © herb ©) 
Pour obtenir la liste des espèces caractérisant l'étage de us ain à babueue Go 
mésoméditerranéen, la question devenait : releve (ononis @ herbacee 0) 
uel (X relevéiX Y Z x releve (coris @ herbacee 0) 
q Ë à w ÿ : releve (garance 1 herbacee 50) 
Ce qui revient à demander quelles sont les espèces K, releve (germandree 1 herbacee 5) 
uelle que soit la valeur de Y (témoin de présence). releve (chevrefeuille 1 herbacee 5) 
P 
Quelle que soit la strate Z et quel quel soit l'effectif x. releve (osyris © herbacee 0) 
- £ dé releve (sedum 4 herbacee 10) 
Dans un deuxième temps, les règles suivantes étaient pop ((10 1 3 1 4 1 10 200 50 100 3 50 5 50 5 5 10)) 
écrites afin de faciliter l'interrogation : pop-arborescente ((10)) 
pop-arbustive ((1 3 1 4 1 10)) 
pop-herbacee (1200 50 100 3 50 5 50 5 5 10)) 
stratetarborescente) si strate (arborescente) si 
relevé(X 1 arborescente Y) et releve (X 1 arborescente net 
al(X effectif ?: Y) et a, up 5 Yi et 
Va strate (arborescente) 
Strate(arbustive) si strate de rt Hustive V) SE 
ralevétX 1 arbustive Y) et A said 
al(xX affectif 2 Y) et ar (effectif z: Y) et 
faux O faux () 
Strate (arbustive) strate (arbustive) 
Stratetherbacte) si strate (herbacee) si 
ralevé(X 1 herbacée Y) et releve (X 1 herbacee Y) et 
ail(X effectif s Y) et al (X effectif : Y) et 
faux () faux 0) 
strate (herbacée) strate (herbaces) 
végétation (mésoméditerranéenne) si végétation (mésoméditerranéénne) si 
relevé(X Y Z x) at releve (X Y Z x) et 
al (X) et al (X) et 
faux 0) faux 0 
végétation (mésoméditerranéenne) végétation (mésoméditerranéenne) 
total C(XIY)) si 
suite CY X) 
suite (C(X!IY) Z) si 
Ce travail effectué en trois séances fut complété ultérieu- k Rx 5 
rement par des exercices sur le traitement des listes : we June 
les notions de récursivité furent donc abordées avec les al (Y) 
élèves. Le programme qui accompagne ce compte- effectif (total) si 
rendu illustre de façon plus complète le travail qui a été _ a Fu 
h û 0 ota 
er pa pre s FL activité n'ayant effectif (arborescente) si 
P , laute de temps, evallé de façon rigoureuse, pop-arborescente (X) et 
nous devons nous contenter de la conviction qui nous total (x) 
anime et nous conduit à renouveler cette expérience effectif (herbacee) si 
pop-herbacee (X) et 
Jean-Pierre FERRAND total (x) 
effectif (arbustive) si 
pop-arbustive (X) et 
total (X) 
&. 
li tout Strate arborescente 


chene-vert effectif : 10 

&strate arbustive 

chene-pubescent effectif : 1 
genevrier-oxycedre -effectif : 3 
pistachier-terebinthe effectif # 1 
chene-kermes effectif : 4 
aubepine effectif : 10 

buis effectif : 10 

&strate herbacee 

brachypode-rameux effectif : 200 


releve (chene-vert 1 arborescente 10) 
releve (chene-pubescent © arborescente 0) 
releve (pin-alep © arborescente 0) 

releve (chene-vert © arbustive 0) 

releve (chene-pubescent 1 arbustive 1) 
releve (pin-alep Ô arbustive 0) 

releve (genevrier-oxycedre 1 arbustive 3) 
releve (genevrier-commun Ô arbustive 0) 
releve (baguenaudier © arbustive 0) 
releve (alaterne © arbuztive 0) 


releve (pistachier-terebinthe 1 arbustive 1) fetuque effectif : 50 
releve tchene-kermes 1 arbustive 4) dactylis effectif : 100 
releve (sorbier-domestique © arbustive 0) thym effectif =: = 
releve (aubepine 1 arbustive 10) phleum effectif : 50 
releve (buis 1 arbustive 10) odontite effectif : 5 
releve (brachypode-rameux 1 herbacee 200) garance effectif : 50 
releve {fetuque 1 herbacee 50) germandree effectif : 5 
releve (dactylis 1 herbacee 100) chevrefeuille effectif : 5 
releve (aphylilante Ô herbacee O0) sedum effectif : 10 
releve (stacheline © herbacee 0) &effectif total 

releve (astragale © herbacee 0) 508 

releve (thym 1 herbacee 3) &effectif arborescente 


releve (phleum 1 herbacee 50) 10 

releve (odontite 1 herbacee 5) &effectif herbaces 
releve (dorycinium © herbacee) 478 

releve (fumana © herbacee 0) &. 
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CORTEX 


IRSDUCTION DANS LA SYNTAXE FROLOG FOUR Mos 0v 707 


RELEVE (’CHENE VERT’ ,1, "ARBORESCENTE”", 10). 
RELEVE U OXYCEDRE” , 1, "AREUSTIVE",2). 

RELEVE (’GARANCE” ,1, "HERBACEE", 40). 

POP((10,1,33 134 10, 200,50, 100,3, 50,5, 50,5, 53 10)). 


INTERROGAT ION 

?PrRELEVE (C4ESPECE, ITEMOIN, £STRATE,, $EFF) 
XESPECE = CHENE VERT 
#TEMOIN = 1 

XSTRATE = "ARECRESCENTE" 
$EFF = 10 


——-SUCCES (3) ——— 
s 


DEFINITION DES FREDICATS STR-ARBO,TC:AI, SUITE ET EFFTOTAL 


STR-ARED: 
RELEVE (4X0, 1, "AREOFRESCENTE", 4X1) % 
LINES 
FUT(#X0,” EFFECTIF 3 ”,%xX1). 


TOTAL U(KXO: #X1))3 
SUITE(#X1,#XO). 


SUITE € CHXO3 XXL) ,KX2) & 
+ CHXOS EX 1, #XS)& 
SUITE (XX1,#X23)& 
CUT. 

SUITE (#XO, #X1): 

LINE& 


PÜT (kX1). 


EFFTOTAL: 
POP (#XO)& 
TOTAL(#XO). 
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programme réside 

dans sa structuration. 
Elle s'obtient à l’aide des 
procéduresetdes 
fonctions. Ces deux termes 
sont désignés en Basic sous 
le nom de sous-programme. 
Mais dans notre propos, 
nous étendronsila 
comparaison à d’autres 
langages. 


L | élégance d’un 


Procédure sans paramètre 


La procédure la plus simple qui puisse être définie 
n'utilise aucun paramètre en entrée et ne gère 
aucune constante ou variable lors de son exécution. 
Ce type de procédure permet de simplifier l'écriture 
d'un programme et d'accroître sa lisibilité. Pour 
exemple, votre programme doit procèder à 
l'effacement du contenu de l'affichage et, étant 
habitués au langage Basic, vous préféreriez utiliser 
le libellé CLS habituellement utilisé en Basic à la 
place d'une combinaison d'instruction PASCAL : 

{* Pour effacer l'écran *) 

write (chr(12)}; 

Pour ce faire, on va définir une procédure nommée 
CLS de la manière suivante : 


procedure cs; 


begin 

write (chr(12}); 
end; 
Le nom de la procédure ne doit pas correspondre à 
celui d'un identificateur précédemment déclaré ou 
ceux déjà définis dans le système PASCAL de base. 
Dans le dernier exemple, le libellé NETTOIE peut fort 
bien convenir en remplacement de CLS. Cette 
procédure doit être déclarée entre les différents 
types de données du programme et le bloc 
définissant le programme principal. Exemple : 


program test; 
var i, limite : integer; 


3] 


PASCAL 


procedure c{s; 


begin 

write{chr(12)); 
end; 
begin 

cis; write['Entrez la limite de boucle :”); 

read{limite), cls; 

for i : =1 to limite do 

writeln(1); 

end. 
Le contenu de la partie de programme exécutée par 
la procédure est marquée par les mots de définition 
d'un bloc d'instructions BEGIN et END et se termine 
par un point-virgule. 


Variables globales 
ef locales 
Unie procédure peut agir sur le contenu d'une donnée 


définie dans le programme principal sans faire appel 
au passage de paramètre : 


program test, 
var am, ap : integer; 
procedure plus; 
begin 

ap : =succ{am); 
end; 
begin 


write('Entrez une valeur : ”); readin{am); 
plus; writeln{am); writeln(ap); 
end. 


Cette forme d'utilisation d'une procedure est typique 
au langage Basic : 


10 PRINT “Entrez une valeur” : INPUT AM 
20 GOSUB 1000 : PRINT AM : PRINT AP 
30 END 

1000 Sous programme -- PLUS -- 

1010 AP=AM+1: RETURN 


Les variables AM et AP sont dites ‘globales’ car 
accessibles aussi bien par les instructions du 
programme principal que par celles utilisées dans 
une procédure. Pour définir des variables dites 
“locales” if faut les déclarer entre la déclaration de 
procédure et le corps de la procédure. 
Exemple : 
procedure cadre; 
const fois:80; 
var i : integer; 
begin 

… Etc … 
La constante FOIS et la variable CADRE n'ont 
d'existence que lors de l'exécution de la procédure 
CADRE. Ce cas de figure est déjà plus intéressant 
que celui donné en exemple dans la procédure 
PLUS, car if limite la prolifération des variables dans 
le corps du programme principal, mais ne règle pas 
le problème du passage des données. 


Procédure avec 

paramètres formels 

Une procédure peut exploiter un ou plusieurs paramè- 
tres provenant du programme principal par l'intermé- 
diaire de paramètres formels. Les identificateurs de ces 
paramètres sont déclarés dans l'en-tête de la procédure. 
Exemple : 


program test; 
var fois, caractere : integer 


procedure repete{a, b : integer); 
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(‘ repetition a fois du caractere de code b *) 
ver | : integer 
begin 
for 1 : =1 to a do write(chr{b)) 
end; 
begin 

fois : =80; caractere : =ord(-); 

repeteffois, caractere); 
end. 
Ceci se rapproche de la manière dont LOGO définit ses 
procédures : 


POUR REPETITION  :FOIS  :CARACTERE 
REPETE :FOIS |TAPE CAR :CARACTERE ] 
TAPE CAR 13 

FIN 


Cependant, à l'inverse de LOGO ou de Basic, PASCAL 
n'encombre pas son espace mémoire avec des variables 
lorsque les procédures, dans lesquelles elles sont décla- 
rées, ne sont pas en cours d'exécution. En effet, il ne 
faut pas perdre de vue que PASCAL est avant tout un 
langage compilé. Vous devez donc vous douter que le 
code résultant de la compilation ne dispose pas exacte- 
ment des données sous la même forme que celle décrite 
dans le code source. Sans entrer dans les détails, 
PASCAL gère un mécanisme de pile, technique privilé- 
giée du langage FORTH. A titre d'exemple, voici la 
traduction en FORTH du demier exemple PASCAL : 
“REPETITION {fois car) 

SWAP O DO DUP EMIT LOOP DROP ; 


À la différence de FORTH, PASCAL ne peut accéder 
directement à la pile de données. Le compilateur PAS- 
CAL traduit les identificateurs {noms des différents types 
de variables) en pointeurs. Chaque appel de procédure 
génère un niveau supplémentaire dans la pile de sorte 
que, deux identificateurs de libellé identique situés dans 
deux procédures différentes ne pointent pas sur la 
même donnée. Pour détail, appelons p1 le pointeur du 
premier niveau, p2 le pointeur du second niveau d'appel, 
pn le pointeur de nième niveau, le premier niveau étant 
celui du programme principal. Si une variable nommée V 
est définie dans une procédure, son exécution agira de 
la manière suivante sur les pointeurs afférents à V : 


Vpi) exécution du programme 
V(p2) appel de la procédure 
VP1) restauration de V{p1) en sortie de procédure 


Ceci est également vrai quand une procédure est exécu- 
tée depuis une autre procédure, y compris dans le cas 
d'une procédure récursive. Dans ce demier cas, le 
nombre de pointeurs générés pour chaque variable de la 
procédure est fonction du nombre de niveaux d'appels, 
de n1, n2..nn en exécution récursive, de nn, nn-1..r1 en 
sortie de récursivité. Attention donc à la saturation si n 
est trop élevé lors d'une exécution récursive. 


Le langage PASCAL dispose d'un certain nombre de 
procédures prédéfinies telles WRITE et WRITELN. 


Les fonctions 


Si une procédure peut être paramétrée, elle ne peut 
restituer de valeur affectable à un paramètre effectif 
utilisé dans le programme principal. Cette caractéristi- 
que est propre aux fonctions. La syntaxe des fonctions 
ne diffère guère de celles des procédures, mais leur 
utilisation rend un résultat qu'il faut exploiter en affectant 
celui-ci à une variable : 
function incremente(a : integer) : integer, 
begin 

incremente : -a=1; 
end; 
Dans le bloc d'instructions de la fonction, il est fait 
référence au libellé de celle-ci pour rendre’ le paramètre. 
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Dans ce cas précis, la comparaison avec une procédure 
écrite en Logo est tout à fait appropriée : 


POUR INCREMENTE  :VALEUR 
_— SOMME VALEUR 1 
FI 


Et en FORTH, le langage branché (car utilisant une 
pile...), on écrirait : 


ANCREMENTE  1+ ; 


Et en Basic. on ne peut trouver d'équivalence, car 
Basic ne disposant pas de pile accessible directement 
par l'utilisateur, ni de variables locales, il lui est impossi- 
ble de formuler des fonctions de manière identique à 
PASCAL. Il faudra donc laisser proliférer les variables 
ordinaires. 


Le langage PASCAL dispose d'un nombre de fonctions 
prédéfinies : 

SUCC PRED ORD 
CONCAT COPY POS 


liste non limitative, car toutes les fonctions mathémati- 
ques ainsi que les procédures de gestion graphique, 
musicale et de gestion des interfaces viennent s’y rajou- 
ter. À titre d'exemple, voici une fonction traduisant en 
degrés Celsius une température exprimée en degrés 
Farenheit : 


function celsius{temperature : integer) : integer, 


TRUNC 


begin 
celsius : =5‘{temperature-32)  divg 
end; 
laquelle donnerait en LOGO : 
POUR CELSIUS  :TEMPERATURE 


ES 5 * (TEMPERATURE - 32 )/9 
l 


et en FORTH (pour ne pas faire de jaloux) : 
: CELSIUS 32 -5 */9; 


Nécessité de définir 
des procédures et fonctions 


Le système PASCAL U. C. S. D. est très exigeant 
vis-à-vis de l'utilisateur, en ce sens qu'il n'autorise pas 
la compilation d’un programme source trop long. La 
définition des procédures et fonctions devient obligatoire 
au-delà d’un certain nombre de lignes. La taille du 
programme principal dépend de la nature des instruc- 
tions utilisées. Cette contrainte limitant la taille du pro- 
gramme principal oblige le programmeur à réfléchir sur 
la finalité de son programme et les données à utiliser 
avant la mise au net et la saisie au clavier. 


En général, on définira une procédure ou une fonction 
dès qu'une séquence d'instructions apparaît de manière 
répétitive. Procédures et fonctions peuvent s'imbriquer 
mais le compilateur limite le nombre d'imbrications 
(message d'erreur n° 251). 


Une procédure peut être le résultat de la compilation 
d'un programme source écrit en PASCAL ou en assem- 
bleur, mais peut aussi provenir de la compilation d’un 
programme écrit en Fortran (Fortran 77) ou de la méta- 
compilation du contenu de blocs FORTH {FORTH-83 de 
Laxen et Perry). Pour ces deux demiers langages, il sera 
nécessaire de définir les moyens de transférer le code 
objet généré sur un support compatible avec le P-Sys- 
tem. 

Bibliographie : 

— Manuel de référence LOGO pour Thomson 

— Manuel de référence FORTH pour Thomson. 

Le système PASCAL U. C. S. D. , 1er volume, par T. 
Chamoret (à noter en annexe 1, liste des messages 
d'erreurs en français) 


Marc PETREMANN 





TECHNIQUE 


Tout sur l’Exframoniteur 


(En plusieurs épisodes, suite des précédents numéros) 


Quatrième épisode : Une autre façon de programmer 


exposait comment utiliser 

individuellement les 
principales routines graphi- 
ques de l’exiramoniteur. Vous 
avez, sans aucun doute, 
remarqué que chaque 
module était construit de la 
même manière. Avant l’appel 
de chaque routine le registre 
X pointe sur la liste des 
paramètres à transmettre au 
module. C'est cette caracté- 
ristique que nous allons 
utiliser pour définir une autre 
façon de programmer les 
routines graphiques. 


L e précédent épisode 


Cette technique consiste à construire une table, que 
nous appellerons ‘table graphique et de visualisation’ 
(TGV). Cette table est constituée d'éléments propres à 
chaque module. Ces éléments sont, dans l'ordre de leur 
écriture dans la TGV : 


— le nom de la routine, 

— le nombre d'octets constituant la liste des paramè- 
tres, 

— la liste des paramètres. 


La TGV porte le nom de la figure souhaitée (TEO dans 
notre application). ECRIMO est la routine d'écriture de la 
figure. Le registre X pointe sur le début de la table. Après 
avoir testé la valeur pointée par X pour détecter la valeur 
0000 marquant la fin de la table, le programme appelle la 
routine de tracé de l'élément désigné (ligne, point, rec- 
tangle, cercle, etc). Le registre X pointe alors sur la 
longueur de la chaîne des paramètres. Chaque routine 
doit incrémenter ce pointeur d'une unité pour pointer sur 
le premier paramètre du dessin. Comme le registre X a 
éte sauvegarde par la routine de tracé du dessin, au 
retour il pointe, de nouveau, sur la longueur de la chaine. 
La lecture de cette valeur, ajoutée au pointeur, permet 
d'élaborer le nouveau pointeur pour tracer un nouvel 
élément de la figure. Chaque figure est ainsi constituée 
de dessins élémentaires contenus dans une table (TGV). 
Cette nouvelle façon de programmer consiste donc à 
écrire ces TGV. La compréhension et la modification de 
ces TGV sont facilitées par l'écriture “en clair” des 
paramètres définis dans la table d'équivalence. L'appli- 
cation que nous vous proposons, consiste à tracer le 
ps de votre journal préféré. La TGV est pointée par 
TÉO. 


Ce programme est subdivisé en trois parties : 


— les EQUATES avec les tronçons de programmes 
d'initialisation qui doivent être obligatoirement 


implantés dans la partie de mémoire non commuta- 


— le corps du programme constitué par la TGV ; 
— des routines graphiques. 


Cette application peut être utilisée sous Assembleur ou 
sous Basic. Attention les modules d'initialisation doivent 
être choisis en fonction du langage d'utilisation prévu. 
Sous Assembleur : INEXMA est le module d'initialisa- 
tion. Cette routine initialise l'extramoniteur et commute 
la banque zéro. Le point d'entrée est START. 


Sous BASIC : INEXMB est le module d'initialisation à 
utiliser. Comme les Basic 128 ou 512 initialisent l'extra- 
moniteur, il n'est donc pas utile de le faire dans le 
binaire. Par contre, il faut rattraper les messages d'erreur 
en redirectant le registre ZPERR ($6185 sur TO et $2185 
sur MO) vers les routines suivantes : 


TO 
SAVSTK EQU $6175 
LDS SAVSTK 
PULS X.U,Y,DP,A/PC 
MO6 
SAVSTK EQU $2175 
LDS SAVSTK 
LEAS 3,5 
STB 2,5 
ATI 


De plus, sur MO6, on doit commuter la banque ROM de 
l'extramoniteur par un JSR à l'adresse $EFFB. Le retour 
en ROM BASIC s'effectue de la même manière par un 
JSR en $EFFE. 

En résumé, pour utiliser notre application sous Basic on 


doit : 

SOUS ASSEMBLEUR : 

— Modifier le source comme énoncé ci-dessus, 
— Assembler en mémoire, 

— Sauver les trois modules binaires. 


TEO No 11 - FEV. 1987 


#S0 : EQUATES 
#S0 : TEO 
#S0 : ROUTINES 


S0 : FQUATESM 
S0 : TEOM 
S0 : ROUTINEM 


SOUS BASIC : 


Charger et executer les programmes suivants : 


Pour machines TO 


9E54 
A1 
DED4 


5E2B 
6111 
SEDO 


9E42 
0000 
0000 


5E2C 
0000 
0000 


7 CLEAR , &HODFF: DEBUT-&H9E42 
10 LOADM'EQUATES 


2Q LOADM'TEO 


30 LOADM'ROUTINES 
40 EXEC DEBUT 


60 END 


Pour MO6 


CLEAR, &H5DFF : DEBUT=&HS5E2C 


10 LOADM ‘’EQUATESM 
LOADM ‘ TEOM 
LOADM ‘’ROUTINEM 
A0 EXECDEBUT 


20 
30 


50 END 


Et voilà le travail !!! 








TECHNIQUE 


Application sur machines TO : 


0E00 


@E00 OF 17 E7 67 


E803 
ECOoC 
E7Ca 
E7CE 
E7DC 


G1AS 
G1A7 
C1A8 
G1AB 
G1Al 
C14A3 
61F1 
G1FO0 
cire 


61F3 


61F7 
C1EF 


62?7D 
GLAO 
619F 
c288 
€16B 
©1cE 
61685 
6175 
0000 
0014 
0018 
0019 


o0G1ic 
001D 
0018 
O01AÀ 
0041 
003$ 
0000 
OGFF 
OOFF 
0000 


0000 
0O0FF 


0000 


0001 
0002 
0003 
005A 
0058 
0059 
0058 
0049 
0048 
0044 
004B 
0088 
0089 
o008A 
008B 
0041 
0021 
0018 
c000 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
000 
000 
0008 
000€ 
000D 
000E 
000F 


0000 
OOFF 


©BO4 A7 27 


9808 34 
OE08 F6 


©BOB C4 


9EOD F7 
0E10 8E 


9E13 A6 


OE15 57 


©E18 CA 


QE1A F7 
9B1D 35 


OE1F 34 
oB21 cé 
6623 BD 
DE26 86 
©E28 BD 
OEZE 35 


OB2D 34 
9E2F 86 
9531 BD 
OES4a CC 
0537 FD 
OBSA 35 


16 
E7CB 


FB 


E7CB 
9B00 


86 


E7C@ 


04 


E7CB 
96 


06 
00 
BCOC 
00 
©0808 
86 


os 
05 
2608 
9B3C 
6185 
86 


DE3C 10FE 6175 


DE4O 35 


FA 


34 


AO ACER OR 

* UNE AUTRE FACON DE PROGRAMXER * 

RO AO NO PO CRE OR BR ER RES TORRES 
INCLUD 0: EQUATES 

ARE RERO RACE RO SOON EX 

#SQUATES et PROGRAMMES D‘ INITIALISATION# 

RE OR RE NN EN OT OR TOR RETIRE 


PUTC EQU SE803 AFFICHAGE 

BXTRA EQU sEcoc EXTRAMOKITEUR 
RDIR EQU SE7C9 Kegietre de donnees 
RCOM EQU SB7CE Regiotre de commnde 
RE7DC EQU SE7DC Registre GA 

XL EQU SO1AS5 BORD GAUCHE 

YB EQU S61A7 BORD HAUT 

XR EQU $#6149 BORD DROIT 

XT BQU $61AB BORD BAS 

XXXXX EQU S61A1 Oréonnee 

YYYYYX  KQU SO1A3 Abacisæa 

AXEH EQU SGC1F1 Rayon borizontal 
AXEV EQU s61F0 Rayon vertical 
CAMFLG EQU S61F2 Drapeau Conplat/ 
*%* camembert 

ALPHAl EQU  9%61F3 Angle de depart 


* quand l'option camembert est choisi 
ALPHAZ EQU S61F7 Angle d'arrives 


FILFLG EQU $C1BF Drapeau Plein/ 

x vide 

MACP  EQU #627D Adresse du motif 
TRATYP EQU 86140 Type de trace 
COLOR EQU S619F Couleur 

VLTH EQU $6268 Drapeau de couleur 
DEBZON EQU s616B Debut de ZONE 
FINZON EQU #610E Fin de zone 

ZPERR EQU 86185  Rattrapage erreur 
SAVSTK EQU s6175 Pile 

RESETC LiQU #00 Reset 

ERRMSC BQU s14 MESSAGE D° ERREUR 
CIRCLE EQU 24T Cercle ou ellipse 
PSETXY EQU 25T Point 

*x de ramplisenge 

CHOIX EQU 26T Routine Choix 
PAIBT EQU 20T Routine PAIRT 

BOX EQU 27T Rectangle 

LINE  EQU 26T Ligne 

FIR EQU GST Chaîne-> flottant 
MOVKF EQU 63T FAC —-> memoires 
VIDE EQU o0 

PLEIN EQU SFF 

CAKENE. EQU SFF Camembert 

COKP EQU 00 Complet 

* cornctere de rempliscaga 

VIDE EQU 

PLBIE EQU SPF 

*TYPE DE TRACE 

MORNAL BQU © Mormal 

TRAESP RQU 1 Transperent 
INVERS EQU 2 Inverse 

MODBT HQU 3 Et logique 

KOD40 EQU S5A Mode 40 calonnes 
MOD80 EQU 458 Moda 60 colonnea 
BIMA4 EQU #59 Bitmep 4 couleurs 
BIMA1S EQU 35E Bitmap 16 couleurs 
HOPA2 EQU 349 Page 2 

HOPA1 BQU $46 Page 1 

OVPAZ  EQU san OÜverlny page 2 
OVPAL1 BQU s4B Overlay page 1 
TOVPAO EQU $88 Triple overlay p0 
TOVPAL EQU 389 Triple overlay pi 
TOVPAZ2 EQU £8A Tripla overlny p2 
TOVPAS EQU s8B Triple overlay p3 
RBIMAS EQU sal BITMHAP SPBCIAL 
RBINA FQU s21 BITHAP STANDARD 
ESC EQU #1B Escape 

TER EQU #00 Tarminateur 
*XCOULEUR 

ROIR EQU 0 

ROUGE  HQU 1 

VERT  EQU 2 

JAUNE EQU 3 

BLEU EQU 4 

MAGENT HQU 5 Magenta 

CYAN BQU Li 

BLANC EQU 7 

GRIS EQU 8 

ROSE EQU © 

VERTC EQU SA Vert clair 

SABLE EQU 2B 

BLEUCL EQU sc Bleu clair 

PARME EQU sD 


BLEUCI EQU $E 
ORANGE EQU SF 


Bleu ciel 


XDRAPBAU 

AVBCOU EQU #00 Avec couleur 

SAHCOU EQU SFF Sans coùleur 
ORG #9E00 


XCommutation des hanques RAM 


TABANQ FCB SOF,9817,9E7,907,8A7,327 
BANQ PSHS D,X 

LDB RCOKX Lecture du registre 
# de controle du PIA 

ARDE #3FB Force le mode dir- 
* -ection 

STB RCOM 

LDX #TABAEQ Pointe sur la ta- 


x ble des banques 
LDA A,X 


* pour commuter ls banque 
STA RDIR Charge le ragietre 


Valeur à pas 





* de direction 


ORB #304 Repositionne le PIA 
x en mode donnea 

STB RCOM 

PULS D,X, FC 


æinitialiæation generale Sous /ASX 
IREXMA PSHS D 


LDB #RESETC Resat (pas s/BASIC 
JSR EXTRA 
LDA #0 BANQUE 5 s/ BASIC 
JSR  BAFQ 
PULS D,PC 


tinitinlisation generale SOUS/BASIC 
INEXKME FSHS D 





LDA #5 BANQUE 5 s/ BASIC 
JSR 
LDD 
STD 
PULS D, PC 
* Fattrapage d'erreur 
RATRAP LDS  SAVSTK 
PULS A,DP,X, Y,U, PC 


0542 

QE42 34 78 
0E44 17 FFDS 
9E47 17 400D 
OE4A 8E A018 
©E4D 17 3BBO 
0E50 35 FF 
2ES2 8D BE 
9E54 3F 

A0GO 

A000 AA 55 AA 55 
AOD4 AR 55 AA 55 
A00B 00 00 00 00 
AOÛC 00 00 00 00 
A010 CC CC 33 33 
A014 CC CC 33 33 
A018 DDBO 

AOLA 09 

A01B 0000 0000 
AO1F O13F O0C7 
‘À023 DDC4 

A025 04 

A026 00 03 00 
AO029 DD9C 

A02B 09 

AO2C 0032 0084 
A030 0098 0084 
A034 DD8C 

A036 05 

A037 0064 OOFA 
AOSB DD8C 

A03D 05 

AOSE 0032 0064 
AO42 DDC4 

AO44 04 

A045 00 01 00 
A048 DDGA 

AO4A OD 

AO4B 0048 0058 
AO4F 0052 0084 
A083 OOFF A000 
1057 DDSA 

A059 OD 

AOSA 0052 0060 
AOSE 0069 0073 
A062 OOFF A000 
4086 DD6A 

1068 0D 

A069 0048 OO0BA 
AOGD 0089 0004 
A071 OOFF A000 
A075 DDOA 

A077 OD 

A078 0038 0094 
AO7C 0052 00B2 
AO8O OOFF A000 
AOB4 DD6A 

A0B6 OD 

1087 0069 0004 
AOBB 007F 00B2 
AOBF OOFF A000 
1008 DD6A 

A095 OD 

A006 0063 0093 
AO9A 00G6D OOAB 
AODE OOPF A0OO 
AOA2 DDDE 

AOA4 18 

AOAS 0088 00DS 
AOÂ9 0021 0021 
AOAD OOFF A008 
AOB1 00 

AOB2 32 2E 52 35 
AOBS 00 

AOB7 37 2E 30 30 
AOEB 00 

AOBC DDDE 

AOBE 18 

AOBF 0088 O0D5 
AOC3 0017 0017 
AOC7 0000 A000 
AOCB 00 

AOCC 32 2E 32 35 
AODO 00 

AOD1 37 2E 30 30 
AODS 00 

AOD6 DEAS 

AOD8 OB 

AOD9 0083 00DS 
AODD DO00 D700 
AOEL 4000 

AOBS DDCA 

AOES 04 

AOB6 00 02 00 
AOE9Q DDDE 

AOEB 16 

AOEC 0064 OO0AF 
AOFO 0050 006B 
AOF4 0000 AO00 
AOFPB 00 

AOFO 32 2E 32 35 
AOFD 00 

AOFE 57 2E 30 30 
A102 00 

A103 DEAS 

A105 0B 

A10© 009E OOAF 
A10A D000 D700 
A10B A010 

A110 0000 

DDO0 

DDO0 34 10 
DD02 €D 84 
DDO4 27 08 
DD0S AD 91 
DDo8 A6 84 
DDOA 30 86 
DDOC 20 F4 
DDOE 35 90 


ORG L3 
* POINT D'ENTRBE SOUS BASIC 





DEBUT PSHS 4.EB,X,U,Y,DP,CC 
LESR IMEXMA  LWEXXB (S/BASIC) 
LESR COMB4 MODE BITKAP 4 
LDX  #TEO POINTEUR 
LESR ECRINO TRACE LE DESSIS 
PULS A,B,X,U, Y, DP,CC, PC 


* POINT D'ESTREB SOUS ASSEMBLEUR 





START BESR DEBUT 
Svi 
* DEBUT DE ZONE COMXUTABLE 
ORG SA000 
* Motif 1 
ROTIF1 FCE SAA, 355, SAA, 555 
FCB SAA,SSS, SAA, 355$ 
* Motif 2 
XOTIF2 FCB #00,800,S800,300 
FCB 300,800, 300, 300 
F Motif 3 
MOTIF3 FCB SCC, CC, 833,333 
FCB scc, SCC, 833,333 
RERO RO RO CEE OO SRE 
TEO FDB FEXE Fenatre 
FCE 6+1 
FDE 0,0,310, 190 
FDB TRACE Type de trace 
FCB 3+1 
FCB HORMAL, JAUBE, AVECOU 
TE en de ce memes es 
FDB ® DROITA DROITE A 
FCB 8T+1 Nombre d'octet 
FDB SOT, 1007, 150T, 100T 
FDB DROITR DROITE RELATIVE 
FCB 4+1 Nombre d'octet 
FDB 100T,250T 
FDB DROITR DROITE RELATIVE 
FCB 4s1 Fombre d'octet 
FDB SOT, 100T 
#.. CS MEN inner Qinin 9 9 MURS 010 010 0 180) Et a © 
FDB TRACE Type de trace 
FCB 3+1 
FCB HORMAL, ROUGE, AVECOU 
FDB RECA RECTAN ABSOLU 
FCB 127T+1 Fonbra d'octet 
FDB  72T,688T,82T, 132T, PLEIN, MOTIF1 
FDB FECA BECTAN ABSOLU 
FCB 12T+1 Bombre d'octat 
FDB &62T,10ST, 1377, 1157T, PLEIN, MOTIF1 
eo... Le *“EH",,.......... .. esse 
FDB RECA RECTAN ABSOL 
FCE 12T+1  Mombre d'octet 
FDB  72T,138T, 137T, 1467, PLEIN, MOTIF 
FDB RECA RECTAN ABSOLU 
FCB 12T+1 Hombre d'octet 
FDB 72T,148T,827T, 1787, PLBIE, KOTIF1 
FDB RECA RECTAH ABSOLU 
FCB 12T+1 Nombre d'octet 
FDB 137T, 1468T,127T, 1787, PLEIN, MOTIF 
FDB RECA RECTAN ABSOLU 
FCB 127T+1  Eombre d'octet 
FDB  99T,147T,100T, 1687, PLEIN, MOTIF2 
LETTRE Le “0"..,... .. ss. 
FDB ELLI ELLIPSE 
FCB 237+1 Nombre d'octet 
FDB 104T,213T,33T,93T, PLEIS, MOTIF2 
FCB COMP 
CC /2-25/ en radian 
FCE 00 
FCC 47.007 en radian 
FCB 00 
FDB ELLI ELLIPSE 
FCB 23T+1 Nombre d'octet 
FDB 104T,213T,2S8T,23T, VIDE, MOTIF1 
FCB COXP 
FCC 12.25/ en radian 
FCB 00 
FCC 47.00/ en radian 
FCB 00 
%....,-Rampliscage du “D". 
FDB COLRI 
FCB 10T+1 
FDB 131T,213T, SD000, SD700, MOTIF1 
“... : OVALE. ,..,...ssssoscsssceose se 
FDB TRACE  Typa de trace 
FCB 3+1 
FCB HORXAL, VERT, AVECOU 
FDB ELLI ELLIPSE 
FCB 23T+1 Fonmbra d'octat 
FDB 100T,17ST,80T, 1077, VIDE, MOTIF1 
FCB Cox 
FCC /2.25/ en radian 
FCB 00 
FCC 47-007 en radian 
FCB 00 
*.....-Remplissage de l'ovale. 
FDB COLRI 
FCB 10T+1 
FDB 1587, 1787. 8D000, SD700, MOTIFS 


FDB 0000 FIN 
INCLUD'O0:ROUTIRES Utilitaires 
KÉSSEERÉÉLESSSERSRENEESERTETTRÉSELESSARIÉ 


#  ROUTIRES UTILITAIRES % 
ÉRRRRE AIOEIONOONFERERÉTIIASERELERÉESREE 
ORG SDD0O 


* ELABORE LE DESSIN POINTE PAR X 
BCRIMO PSRS x 


ARS TST  .X LA FIN 7 
BBQ FIMO OUI 
JSR U,X++#1 TRACE UN ELBMERT 
* DU DESSIS 
LDA  ,X #. D'OCTETS 
LEAX A,X KEY POINTEUR 
ERA ARS 
PIMO PULS  X,PC 
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DD10 

DD20 34 04 
DD2B 17 OBDE 
DD2E SD 

DD2F 27 QC 
DD31 88 DD10 


DD34 1F 98 
DD36 Ce 14 


DD38 17 OED1 
DD3B 6D 02 


DD3D 35 84 


DD3F 34 14 
DD41 E6 80 


DD43 27 05 
DD45 17 OABE 


DD48 20 F7 
DD4A 35 04 


DD4AC 34 34 
DD4E 30 01 
DDS0 E6 os 
DDS2 F7 C1EF 
DD55 104AE 06 
DDS8 31 28 


DDSA 10BP 627D 


DDSE 10AE 61 
DD61 AE 64 


DD63 Co 18 
DD65 ED DD29 
DD66 35 B4 


DD6A 34 34 
DD6C 30 O1 
DDSE 10AE 81 
DD71 10BF €1AS 
DD?75 10AE 81 
DD78 10BF €1A1 
DD7C 20 D2 


DD7E 34 34 
DD60 10AE 81 
DD63 AE 84 
DDES C6 10 
DD87 BD DD29 
DD6A 35 Ba 


DD8C 54 34 
DDS8E 30 o1 
DD90 10AE 81 
DDO3 AE 84 
DD95 C6  1A 
DD97 BD DD29 
DDOA 35 Ba 


DDOC 34 34 
DD9B 30 O1 
DDAO 10AE 81 
DDA3 10BF G1A3 
DDA7 10AE 81 
DDAA 10BF €1A1 
DDAB 20 EO 


DDBO 34 54 
DDB2 30 O1 
DDB4 CE C145 
DDB?7 C6 Gs 
DDE9 104E 81 
DDBC 1OhF C1 
DDEF SA 

DDCO 26 F7 
DDC2 35 D4 


DDC4 34 14 
pDCée 30 o1 
DDCS Be 80 


DDCA F7 ©LAO 
DDCD E6 80 
DDCF F7 c19F 
DDD2 EG 84 
DDD4 P7 c288 
DDD7 C6 1C 
DDD9S BD DD29 


DDDC 35 04 


DDDE 34 34 
DDEO 30 o1 
DDEZ 104E 81 
DDES 10BF 6143 
DDBS 1DAE 81 
DDEC 10BF 6141 
DDFO E6 o1 


DDF2 F7 €1r0 
DDFS E6 03 
DDF7 F7 e1rFi 
DDFA E8 05 
DDFC F7 C1EF 


DDFF 10AE 08 
DEO2 31 28 
DE04 10BF 627D 


DE08 E6 08 
DBOA F7 e1r2 
DEOD 31 0e 


X Le code de Ja routine extramoniteur 
* ect contenu danse B 





KESSAG RKE 25T Reserve 25 octets 
TRAMON PSHS  B 
LBSR EXTRA Appel la rautine 
TSTE Teste si erreur 
BEQ avi Pas d'erreur 
LDX #KESSAG Erreur. Le moccaga 


* d'erreur est extrait at œauvegarde 
+ dans KESSAG 

TFR B,A Yo d'erreur 

LDB #ERRMSC Routine de traite- 
* mnt de l'erreur 


LESR EXTRA 

BSR AFFICH Affichage du ne=- 
* sage 
AVI PULS B, PC 


* Affiche una chaine de caract: 
*% tea par X 
AFFICH PSHS B, X 





e poin- 


AFF1 LDB .X+ Un caractere de la 
*x chaîne 

BBQ AV2 Un zero ? 

LBSR PUTC Mon. Alors on affi- 
* cbe 

BRA AFF1 On continue 
Av2 FULS  X,B,PC 


* HCRITURE D'UN RECTANGLE EN RELATIF 





RECR PSHS Y,B,X 
LBAX 1,X #. d'oct 
AZE LDB s,X Drapeau 
STB FILFLG 
LDY e,x Adresse du motif 
LEAY 8,Y Plue 8 pour poin- 


*X -ter sur le ‘dernier +1” octet 





BTY MACP 

LDY +X++ Abacisea de l'arrives 
LDX sx Ordonnee de nd 
LDB #BOX Foutine BOX 

JSR TRAMON Appel extramon 
PULS X,Y, Be PC 


x ECRITURE D'UN R&SCTANGLE EN ABSOLU 





RECA PSHS X,Y,B 
LEAX 1,X n, d'octets 
LDY sX++ Abecisse de depert 
STY YYYYY b 
LDY .X++ OCrdcnnes de depart 
STY XXXXX 
BRA AZE 

Miss cunnenne se vreenetesegesneoonentenses 


# BCRITURE D'UN POINT 


* Les parametres du point sont pointes 
*x par X 





POINT PSHS Y,B,X 
LDY sX++ Abeci 
LDX 4X Ordon 
LDB #PSETXY Routine point 
JSR TRAMON Appal extramon 
£ PULS X,Y,B, PC 






* ECRITURE D'UNE DROITE EN 
* Les pornmtreu du point d'arrivee sont 
* pointes par X 





DROITR PSHS X,Y,B 
LEAX 1,X saute n.octats 
ARE LDY eX++ Abaciese 
LDX 4X Ordonnee 
LDE #LISE  Routine LIGEE 
JSR TRAMON Appal extramon 
PULS  X,Y,B, PC 


* BCRITURE D'UNB DROITE EN “ABSOLU' 
*X Les paramtres des pointe de dopert at 
* d'arrivee sont pointeu par le registre 
x x 








DROITA PSHS X,Y,B 
LEAX 1,X saute la n. oCteta 
LDY .X++ Abscigea de depart 
STY VYYYY 
LDY .X++ Ordonnee de depart 
STY XXXXX 
BRA ARE 


Monnsssenessns nr one senssomnnnssnns 


x DEFIRIT UNE FENETRE DOST LES COORDOR- 
x -NÉES SOST POINTÈES PAR LE REGISTRE X 








FENE PSHS B,U,X 
LEAX 1,X saute ».octete 
LDU #xXL ler registre 
LDB #4 4 valeure 
AR1 LDY .Xt+ Lecture cocrdonnees 
STY iU++ Ecriture 
DECB Fin ? 
BSE Kon 
PULS 
LOPREPERE ET sus 








x Les parametres du trace sont pointes 
* por X 
TRACE PSHS B,X 
LEAX  1,X œaute n.octate 
LDB .X+ Type 
STB TRATYP 
LDB .X+ Couleur 
STB COLOR 
LDB :X Drapaau de couleur 
STB VITH 
LDB #CHOIX Routine CHOIX 
JSR TRANON Appal extramon 
PULS X,B,PC 
Éononns vu ve née Cons verse CRC ETEN EEE 
x TRACE USE ELLIPSE 
ELLI PSHS Y,B,X 
LEAX 1,X NH. D'QCTETS 
LDY ,X++ 
STY YYYYY Abscioga du centre 
LDY ,.X++ 
STY XXXXX  Ordonnes du centre 
LDB Lx 
STB AXEV Rayon vertical 
LDB 3,Xx 
STB AXEH Rayon borizontal 
LDB 8,x 
STB FILFLG FPilein/vide 
LDY e,x 
LBEAY 8,Y 
STY HACP Adraeaa du motif 
* de remplieange 
LDB 8,Xx 
STE CAKFLG Complet/portion 
LEAY  Q,X Chaîne “angla de 
* depart" 


DEOF C6 41 LDE #FIS Conversion chaine 
à en reel 
DE11 BD DD29 JSR TRANOS Extramoniteur 
DEl4 65 61F3 LDX #ALPHA1 Zone memoire de 
% reception 
DH17 Ce 3F LDB #MHOVKF Transfer FAC-> men. 
DB19 BD DD29 JSR TRANON Extramoniteutr 
DBI1C 31 25 LEAY 8,7 Chaine “Angle d° 
* arrivee” 
DE1B C6 41 LDB #FIN Converæion chaine 
x en reel 
DE20 BD DD29 JSR TRAKOS Extromoniteur 
DE23 88 O1r7 LDX #ALPHAZ2 Zone de reception 
DB26 C6 3F LDE #HOVHF Trensfert 
DE28 BD DD29 JSR TRANON Extromoniteur 
DE2B Ce 18 LDB #CIRCLE Cercle ou eliipse 
DE2D BD DD29 JER TRANON Extramoniteur 
DE30 35 Ba PULS X,Y,B. PC 
% COMMUTE LE MODE paëse par E 
DH32 1B SA 00 VAL PCB ESC, RDD40, TER 
DE3S 34 14 COKOD PSHS X,B 
DE37 F7 DE33 STB VAL+1 Place le mode 
DESA 8E DB32 LDX #vaL Fosntesr 
DE3D #6 80 RA1 LDS .X+ Envoie la chaine 
DB3F 27 05 BEQ VAL Fin ? 
DH41 ED R803 JSR PUTC Kon 
DE44 20 F7 BRA RA1 
DE46 35 o4 Val FULS 1.B,PC 
% COMNUTE LE MODE 40 COLONNES 
DB48 34 10 COKdO PEHS x 
DE4A C6 SA LDE #NOD40 Mode 40 colonnes 
DBAC 17 FF£6 RA2 LBSR COXOD 
DE4F 35  Q0 PULS X, PC 
# COKXUTE LE MODE 80 COLOBRES 
DES1 34 10 COMBO PSKS x 
DES3 Ce 5B LDE #MHOD80 Kode 80 colonnes 
DESS 20 Fs BRA RA2 
%* COXAUTE LE MODE BITMAP 4 COULBUHS 
x {STABDARD) 
DES7 34 10 COMB4 PSHS x 
DES0 cé 50 LDB #BIMA4 Mode BITKAP 4 
DESB 20 BF BRA RA2 
% CONMUTE LE MODE BITMAP 4 SPECIAL 
DESD 34 04 COMB4S PSHS B 


NILUS, REGARDE UN PEU 
CE QUI NE VA PAS DANS 
MON TAPIS VOLANT- 


TEOr:N 
No 2 


Quel type d'erreur est 
le plus facile à détecter 
par programme ? 

A - vraisemblance 
B-pertinence 
C-cohérence 

A gagner : 
10 logiciels 
























TECHNIQUE 


JSR COx24 Bitmep 4'.etandard DE0O 34 10 COTROZ2 PSHS x 

LDB #RBIMAS Charge le GA DEOB C6 £A LDB #TOVPAZ M.T.Overlay P2 
AR4 STB RE7DC DE9D 20 AD ERA RA2 

PULS B,PC 


% COMHUTE LE MODE TRIPLE OVERLAY PAGE 3 


# RETOUR AU MODE BITMAP STANDARD DEOP 34 10 COTROS FPSHS  X 
REBIMA PSS B DEA1 C6 8B LDB  #TOVPA3 M.T.Overlay PS3 
LDB  #RBIMA Charge le GA DEAS 20 A7 BRA  RA2 
BRÀA  AR4 Dani ana on vas ane mecs ea EES 
# COLOR(&OE D'UBE ZORE 
# CONNUTE LE MODE PACE 1 DEAS 34 34 COLRI PSHS X,Y,B 
COPAG1 PSHS X DEA7 30 01 LBEX 1,X 
DEAO 10AE 81 LDY ,X?+ 
Lu #HOPAL Mode Page 1 DEAC 10BF 8143 STY  YYIVY  Abaciase du point 
nn DEBO 10AE 81 LDY  ,.X## ï 
* CORKUTE LE NODE PAOB 2 DEBS 10BF 61A1 BIY  XXIXX Ordonnee du point 
COFAOZ PSHS ZX DEB7 10AE 81 LDY ,X++ 
LDE  #MOPA2 Mode Page 2 DEBA 10BF 816B STY  DBBZON Debut de zone 
ERA  RA2 DEBE 10AE 81 LDY ,X++ 
DEC] 10BF 6165 STY  FMISZON Fin de zone 
# COMNUTE LE MODE OVERLAY PACE 1 DECS 10AE 84 LDY n 
COVERL PSHS X DEC 32 28 LEAY  6,Y Adrasse du motif 
LDB  #OVPAI N.Overiay pagel DECA 10BF 627D STY  MACP 
ERA  R42 DECE CS 1D LDE  #PAINT Routine PAINT 
DEDO BD DD29 JSR  TRENOR Extranoniteur 
% COMMUTE LE MODB OVBRLAY PAGE 2 DED3 36 Ba PULS  X,Y,B,.PC 
COVER2 PSHS X 
LDE #OvPAz K.Overlay page 2 0000 END 
BRA  RA2 


00000 Total Errore 


# COMNUTE LE MODE BITMAP 18 COULEURS 


Fat 1Dee somme Mode BITMAP 16 Application sur MO6 : 
Le listing paraîtra dans le prochain numéro. 


* COMNUTS LE MODE TRIPLE OVERLAY PAGE © 


COTROO PSHS x , 
LDB  #TOVPAO M.T.Overlay PO A suivre... 
BKA  R42 


# COQUE LE NODR TRIPLE OVERLAY PAGB 1 Prochain épisode : [E Interpréteur Graphique MIG et les 


LDB  #TOVPAL M.T.Overlay Pi macros graphiques 


BRA RA2 


* COXMUTE LE MODE TRIPLE OVERLAY PAGE 2 Michel WEISSGERBER 


C'EST LE FREIN À MAIN 
QUI NE TIENT PAS 


ORDI-PLUS 


LE SPECIALISTE DE L'INFORMATIQUE 
FAMILIALE ET PROFESSIONNELLE 
THOMSON, AMSTRAD, COMMODORE... 


Tous matériels. 
Plus de 1 000 logiciels, jeux, livres. 


Entrée libre - Démonstration permanente 
7, place Camélinat - 93600 AULNA Y-SOUS-BOIS 
Tél. : 48.68.66.33 
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TEOTRUCS 


Recopies d’écran 


Li LJ 
ecopies horizon- 3 REM COPIE HORIZONTALE ECRAN MOS5 





tales et verli CE me tre 
ANNE SMANN Y MT8 
ales et vertica- $- son 


LE< ‘10 REM EXEMPLE DE DESSIN A COPIER ####4# 
les de I ecran U 12 CLS:ATTRB1, 1:LOCATE1, 23,0: PRINT°"M0S" 
15 BOX(0,189)-(463, 162) :P1=3. 141959; PSET (315, 140) 


MOS5 sur une impri- Ace InO TO 11: T=I#B#PI/11:Xm=250+6SHCOS CT) : Y=140+6SHSINITI 2LINE-(X, Ÿ 


32 PSET(80,40) 


mante Mannesmann 35 FOR I=O TO L1:T=I#2#PI/11:X=40s4ONCOS (TD): Y=40+4OHSINCTI LINE- (X, VD: 


NEXT 


38 PSET(178,40) 
Q Y L Adapta- 40 FOR I=O TO 11:T=I#1ONPI/11:Xe138+40HC0S (T) :Y=40+4OH#SINCTI2LINE-(X, Y 


:NEXT 


[2 3 “ 
tion d apres progra m- be Re 1 TaING!PI/11:X=275S+40XC0S (T) : Y=4AO+AOHSINCTISLINE-(X,Y) 
2NEXT 
me pour TO7, par 30 LOCATE OST 0 nasuen 
= = SE! RGE 
F ra nec IS Ga Î I I Q r d . rs D en Verne FRESTORREFOR MH=BRH9F3A TO RHYFFE:READKS:POKE M, VAL ( 


LH" +K8) :NEXT 

20050 EEC &H9F3A 

20056 DATA 34,36,86,04,B7,20,42,3F,24,12,86,01,87,20,42,3F, 24, 12,3F,06 
,12,12,12,12,12,12,30,6D,00,98,86,07,E6,80,3F,24,12,10,25,00, B2 

20063 DATA 4A,26,F4,8E, 00,00, C6, 19, 34,04,C6,28,34,04,C6, 0D,3F,24,12,C6 
+04,3F,24,12,C6,1B,3F,24, 12 

20080 DATA cé,4B,3F,24,12,C6,40,3F,24,12,C6,01,3F,24,12,C6,08, 34,04, 33 
.8C,61,C6,08,h6,84,48,69,A0, SA, 26,FA 

20100 DATA 30,88,26,6A,F4,24,EC, 35,04,31,8C,4B,86,0B,E4r A4 3F 29, 12, 6F 
:40,44,26,F6,30,89,FE,C1,4A,E4,26,CF 

20120 DATA 35,04,30,89,01,18,6A,E4,26,A3,35,04,C6,1B,3F,24,12,C6,33,3F 
124,12,C6,24,3F,24,12,C6,0D,3F,24, 12,C6 

20139 DATA OA 

20140 REM POUR FORMFÉED CHANGER OA EN OC HIHI 

20141 DATA 3F,24,12,86,10,B7,20,42,3F,24,12,35,36,39,1B,33, 19, 1B,43,00 
,0C,00,00,00,00,00,00,00,00 


Recopie horizontale 
3 REM COPIE VERTICALE ECRAN MOS 
S REM SUR IMPRIMANTES 
7 REM MANNESMANN TALLY MT80 


$ PRINT 

10 REM EXEMPLE DE DESSIN A COPIER #4 

12 CLS:ATTRB1, 1:LOCATEL, 23, O: PRINT "MOSS" 

15 BOX(0,189)-(43,162):P1=3.14189:PSET(315, 140) 


30 FOR 1=0 TO 7 :T=I#8#PI/7 :X=250+6SKCOS (T) 2 Y=140+6SHSINCT) LINE- (X, Y 
):NEXT 
35 PSET(80,40) 

40 FOR I1=0 TO 7 :T=1#2#PI/7 :Xm40+40XC0S (T) : Ya40O+40XSIN(T) SLINE-(X, Y): 
NEXT 
42 PSET(315,40) 
45 FOR JI=0 TO 7 :TmJ#1ONPI/7 :Xm275+40HC0S (T) : YM4O+AONSIN IT) SLINE-(X,Y 
):NEXT 
S0 LOCATE O0,0:ATTRB 0,0 

n . = . 20000 REM PROG COPIE HIER 
Recopie verticale Recopie horizontale 20005 REM UTILISER HERGE : 

20010 CLEAR,&H9FéC-1:RESTORE:FOR Me&H9F6C TO BHYFFE:READKS:POKE M, VAL ({ 
°&H°"+K8) :NEXT 
20050 EXEC &H9F6C 
20172 DATA 34,36,86,04,B7,20,42,3F,24,12,86,01,B7,20,42,3F,24,12,3F,06 
,12,12,12,12,12,12,30,8D,00,6€,86,07,E6,80,3F,24, 12 
20191 DATA 25,54, 4A,26,F6,6€,00,00,10,6E, 1F,16,C6,1B,3F,24,12,C6,4B,3F 
,24,12,Cé6,C8,3F,24,12,C6,00,3F,24,12,1F,21,86,C6,E6,84,3F,24,12, 4A,27, 
05,30,88,D8 
20212 DATA 20,F3,C4,0D,3F,24,12,C6,04,3F,24,12,31,21,10,8C,1F,40,26,C9 
rCé,1B,3F,24,12,C6,33,3F,24,12,C6,24,3F,24,12,C6,0D,3F,24,12,Cé 
20222 DATA OA!REM POUR FORM FEED CHANGER OÀ EN OC HE 
20223 DATA 3F,24,12,86,10,B7,20,42,3F,24,12,35,36,39,1B,33,19,1B,43,00 
,0C 


a ENT] SE c'est 


Recopie verticale 
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Une table de 
conversion 
décimale, 
hexadécimale 
et binaire. 


e programme ci- 

joint vous permet- 

tra de lister une 
table parfois bien uti- 
le. Il est prévu pour 
fonctionner avec une 
imprimante 80 colon- 
nes. Pour l’écran, il 
suffit de mettre SCRN 
au lieu de LPRT dans 
POPEN. 


Léonardo EULER. 
n il 
ail a 
# 
ab à Z 
ET | LT 
OT £ 
4 li 
UT J 
AZ ue 
+ RE 
X nm zù 
“il U “xt 
*<Z Ttkr è& 1 
QU fin 


“mn E tt 
LÉ SI LS TC 


Z *-NZTH4 #T 
n Dao xx D . 
M « -ÿul x À 
LA-WO00 Ua * 
s CHA * ZZ © 
X «ut Asa mie à 
WU QŒOUTH 0 = KO 
L OeIIXEO 2Z Z+ 


Hi2:CHRSESCAS-CCN AND PCKII< 


(0x MAUZUOm=> a 
ST TI tot sait PA 
ONVDOGAR- CO SEÆX HZ Ce 
Wiskss ORGUE Him Œ 
AT à mie NXZL Z € +0 

UaOn1L AO) Im mL Ke 
kel HEHI NEC TO ur 
JZ nm HaknZOZ Ol ZX 
md ZZO0Z O Ut 
Tit Cire bi ZX 
-WTOUTALTO # ll 
*AALO0 El Z LS E 


Z + ” 
OG6098UN66606-066-66S 
OA DOUROMmO-AU09%NO 
tete et et et et ct ed et QE CU QU OO 


Programme de conversion décimale, hexadécimaie, binaire. 


TFOTRUES 


Table de conversion 


illustration des programmes 


TABLE DES NOMBRES LE O a 255 EN DECIMAL, HEXADECIMAL ET 


00 00000000 64 40 01000000 128 80 10000000 
01 00000001 65 41 01000001 129 81 10000001! 
02 00000010 66 42 01000010 130 82 10000010 
03 00000011 67 43 01000011 131 83 10000011 
04 00000100 68 44 01000100 132 84 10000100 
05 00000101 69 45 01000101 133 85 10000101 
06 00000110 70 46 01000119 134 86 10000110 
07 00000111 71 47 01000111! 135 87 10000111 
08 00001000 72 48 01001000 136 88 10001000 
09 00001001 73 49 01001001 137 8Y 10001001 
10 OA 00001010 74 4A 01001010 138 8A 10001010 
11 OB 00001011 75 4B 01001011 139 8B 10001011 
12 OC 00001100 76 4C 01001100 140 8C 10001100 
13 OD 00001101 77 4D 01001101 141 8D 10001101 
14 OE 00001110 78 4E 01001110 142 8E 10001110 
15 OF 00001111 79 4F 01001111 143 &F 10001111 
16 10 00010000 80 50 01010000 144 90 10010000 
17 11 00010001 81 51 01010001 145 1 10010001 
18 12 00010010 82 52 01010010 148 Y2 10010010 
19 13 00010011 83 53 01010011 147 93 10010011 
20 14 00010100 84 54 01010100 148 %4 10010100 
21 15 00010101 85 55 01010101 149 @5 10010101 
22 16 00010110 86 56 01010110 150 %6 10010110 
23 17 00010111 87 57 01010111'151 97 10010111 
24 18 00011000 88 58 01011000 152 S8 10011000 
25 19 00011001 89 59 01011001 153 99 10011001 
26 1A 0001101C 90 5A 01011010 154 YA 10011010 
27 1B 00011011 91 :" 1011011 19‘ 9B 10011011 


OBNIOUUBOBDRC 


28 1C 00011100 ©7 11100 156 9C 10011100 
29 1D 00011107 ‘101 157 91 10011101 
30 1E 0001” *O 158 9E 10011110 
31 1F nr 15% OF 10011111 
32 ?° 50 AU 10100000 
SÉ A1 10100001! 


12 10100910 


Tél : 41.58.32.60 


PROFESSIONNELS 
DE LA MICRO 
INFORMATIQUE 


Choix très important 
de logiciels 
d'accessoires ef de livres 
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192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
ès 
2276 


FOIE MFCRITIATIQLIE 


8, rue St-Pierre - 49300 Cholet 


co 
Ci 
ce 
C3 
Ca 
cs 
cé 
C7 
C8 
C9 
CA 
CB 
CC 
CD 
CE 
CF 
DO 
T1 

L2 
D3 








* 110217? 


























BINAIRE 


11000000 
11000001 
11000010 
11000011 
11000100 
11900101 
11000110 
1100011! 
11001000 
11001001 
11001010 
21001011 
11001100 
11001101 
11001110 
11001111 
11010000 
11010001 
11010010 
11010011 
11910100 
11010201 
11010110 
11010111 
11011000 
11011001 
11011010 
11011011 
11011100 
11011101 
11011110 


11" 


VDS iciels pour TO7 et 
cle lodia,  Motus, 
Crypto, Trap, Plctor. Gérnini 
{cortouche]) ; pour 107/70 
et MOS, microprocesseur. 
Coq Inn, Scrontch, Mélop- 
tica, Katuvu, Colorpacla. 
Un mot pour le compte. 
Neufs. Venus moitié prix. 
Christian LEMAIRE, 25 rue 
Basse des Tinteliries 62200 
BOULOGNE/MER. Tél. 
21.80.6162. 


TO9 CHERCHE contacts 
(Région Versailles, Ram- 
boulllef). Marie-Claire 
AUBERT 4 rue de Bourgo- 
gne, 78690 LES ESSARTS LE 
ROI. tél. 30.41.70.28. 


VENDS pour TO7/70, Blitz 
à très bas prix: 490 F. 
Stéphane MARY, 3 allée de 
ta Meulière, 78310 COI- 
GNIERES. Tél. 30.62.86.79. 


VENDS EXLI00 + moni- 
teur monochrome + lec- 
teur de cassettes + 9 cas- 
settes et 3 cartouches + 
livres. Pux: 2500 F. Etat 
neuf. Bourgeois Ollvier, 1 23 
rue Louis Becker, 69100 Vil- 
leurbanne. Tél. après 18 h. 
78.85.5990. 


ACHETE T07/70 avec ou 
sans clavier mécanique. 
ALMODOVAR Louis, 18 rue 
A Renoir, 95370 MONT- 
GNY. Tél. 34.50.99.69 le soir. 


VENDS TO7/70, clavier 

anique, Cartouche 
Basic 1.0, livre servi une 
seule fois. Prix : 2 000 F. Del- 
croix Jacques, 23 rue de 
Bourgogne, 75007 PARS. 
Tél. 47.53.85.83. 


VENDS pour MOS et TO7/ 
70 nombreux jeux: 
5e Axe, Saplens, Vampires. 
Numéro 10, Top Chrano, 
Karaté, Aigle d'Or. Prix en 
fonction du prix d'achat. 
Fessard Fabien, 20 rue 
Louise-Michel, 41100 ST- 
OUEN. Tél. 54.80.09.08. 


VENDS pour MOS: un 
tableur (Tablo 5) 150 F, un 
traitement de texte 
(Courrler} 150 F. GIROUD 
Jean-Claude, 40 rue Raoul 
Servant, 69007 LYON. Tél. 
72.731531 (entre 19h et 
20 h, sauf le lundi). 


VENDS TO7/70, Basic, 
extension musique et jeux 
(manette), nombreux 
logiciels de jeux (Tennis, Voi 
Solo, Androïdes..) et 
éducatifs, nombreux livres. 
Prix : 2800 F. BLONDEAU 
Nicolas, 23 rue de la 
Moutette, 39300 
CHAMPAGNOLE. Tél. 
84525694. 


CHERCHE contacts sur 
Thomson (109 + de pré- 
férence). Laurent DUBOIS, 
1 allée de la Vallée Ducas- 
telle, 02100 St-Quentin. 





BEBSSO 1:22 smnsese cena sde sens sir es Ressess see des 
en ne Se 


VENDS TO7/70, lecteur 
disquette 320 K, assem- 
bleur, contrôleur de 
manette, contrôleur d'im- 
primante. Prix : 5000 F. 
Marguin Jacques. Corcel- 
les. 01740 Brénod. Tél. 
74.36.0368. 


VENDS K7 MOS, synthéti- 
seur de parole (Super), 
Vox 99F, Mission Delta (si- 
mulation) 90F. Pour MOS, 
TO7, L'intrus : 60 F. PERON 
Jean-Marie, 25 rue Alexan- 
dre Ribot, 35200 Rennes. 
Tél. 99.53.87.74, 


MOS RECHERCHE Androï- 
des, Super Tennis ou 
Fooïball, état neuf. Prix 
réduits. GIBERGUES Jérô- 
me, 38 rue du Champ- 
des-Chartreux, 12200 Vilte- 
franche-de-Rouergue. Tél. 
65.290597 fheures des 
repos). 


VENDS MOS5, crayon opii- 
que, extension manettes, 
LEP, 3 jeux pour MOS. 
Valeur: 3000 F, vendu à 
2 500 F (état neuf). Urgent. 
CARIA Rémy, 12 rue du 


Général-Leclerc, 78360 
MONTESSON. Tél. 
39.52.4254 (après 17 h). 


VENDS VG 5000, étai 
neuf, lecteur K7 et log 
ciels : 900 F. él. 
43.95.57 08 (après 18H). 


VENDS MOS Thomson 
(26.12.84), Péritel ou 
adapteur SECAM. Exten- 
sion musique et jeux 2 (nor- 
mes Atari, lecteur de K7 
(LEP), nombreux program- 
mes de jeux et utlitaires 
(environ 70}. nombreuses 
revues. Prix: 2200 F (à 
débattre}, parfait état. 
SIMONET Hugues, 17 rue 
des Chardonnerettes, 
95200 SARCELLES. Tél. 
39.90.39.71 (vers 17 h 30). 


VENDS Lecteur disquette 
80 K, 1 000 F. TO7/70, 
clavier mécanique, 1 500 F. 
Basic 1.0 et 128, 500 F. 
Extension mémoire, 64 K, 
500 F. DRETZ Jean-Claude, 
8 rue du Four du Gué, 
95590 Presles. Tél. (1) 
30.34.0232. 


VENDS TO7/70, Basic, 
Alrbus, Extension m 

et jeux. Prix 2500 F. VENDS 
Lecteur-enregistreur 
contrôleur de disquettes 
5*“1/4 + dos + 10 
disquettes. Prix : 3 000 F. Très 
bon état. LAURENT Hervé, 20 
bis de Chalandray, 91230 
MONTGERON. Tél. 
69.42.10.38. 


VENDS TO7, Basic, exten- 
sion 16 KO, m o, 
jeux (Yétl, Pulsar 1, Sorce- 
ry..). livres, revues, 60 pro- 
grammes. Le fout pour 
1 550 F, valeur réelle 4 000 
F. Tél. 1/34.87.57.35. 


VENDS Mandragore, 
Planète Invisible pour 
MOS. 200 F pièce. PELLETIER 
Stéphane, Lotissement 
Mignagues, 64310 ASCAIN. 
Tél. 59.54. 01.32 (après 18h] 


ACHATS cartouche Basic, 
version 1.0, pour TO7. Pour 
infiation dans club. Faire 
offre par écrit. Merci. 
Urgent. MICROFER. Toulouse 
et région (UAICF, 37 ov. de 
Lyon, 31500 Toulouse. 


VENDS MOS, LEP, crayon 

, @xtension cube 
Bosic. Mandragore, 
éducatif Maths N 5, Vol 
Solo, etc. Garantie fév. 87. 
Neufs: 4200 F. Faire offre 
au 279668.19. BOUGHANI 


Séghir. 80 av. Clémenceau, 
59500 DOUAI. 


VENDS magnéto K7 TO7, 
carlouches Basic, Pop- 
Pop. Androïdes, Airbus, Trop, 
les placements d'épargne, 
Survivor, Gérez vos fiches, 
extension mémoire, 
langages Basic, livres (Basic, 
assembleur), Chasseur 
Oméga, Calcul mental et 
opération 6 numéros de 
THEOPHILE, programmes, 
Prix: 2000 F, à débattre. Tél. 
42.29.55.49, demonder : 
Stéphane (à Paris). 


VENDS pour 107, T07/70, 
cartouche Basic 1.0: 
100F. Michel-au 
40.86.42.57. 


VENDS TO7/70, clavier 
mécanique, LEP, Baslc1.0, 
manettes, jeux, livres. Etat 
neuf. Prix: 4000 F à 
débattre. ADDA Gilles, Les 
Vignes Vimines 73160 
COGNIN. Téi. 79,69.37.78. 


VENDS Lecteur disquette 
320 K état neuf, dix dis- 
ques avec programmes. 
te tout pour 2500 F. 
DEGON Jean-Marc, 9 Bd 
Londres, 02300 CHAUNY. 
Tél. 23.39.25.13. 


VENDS TO7/70, synthèti- 
seur, une manette, jeux 
(mpérialis, Pulsar 2, Elimi- 
nator, Business Plus). Le 
tout: 2000 F. GELENNE 
Fablen, 163 rue de Cha- 
renton, 75012 PARIS. Tél. 
4343.58.61. 


RECHERCHE pr: 

utliltaires pour MOS (Lori- 
tel, etc) et éducatifs per- 
formants. Envoyer liste à: 
M. PENIN Jean-Pierre, 39 
rue Jean-Boute, 62840 
LAVENTIE, Tél. 21.66.21 53. 








VENDS 5 logicieis 
éducatifs pour MO6 et 
MOS au prix exceptionnel 
de 600 F. Me contacter au 
55.760704. Uniquement le 
week-end. BERTAUT Alain, 
Malal, Fromental 87250 
BESSINES. 


Puf 


VENDS T07/70, clavier 
mécanique, très bon 
état, Basic 1.0, Colorpaint, 
extension musique et jeu 
{sans manette], Beach 
Head. Prix: 2500 F à 
débattre. HUBSCH Sylvain, 
17 rue des Hallebardes, 
67000 STRASBOURG. Tél. 
88.22.46.79. 

VENDS TO7, 16 K7, LEP, 
maneftes, Basic. Prix: 
2000 F. VENDS imprimante 
90-582: 2000 F. VENDS 
nombreux programmes à 
moitié-prix. KRAUS Pierre, 
17 rue du Docteur Zamen- 
hoff, 92103 issyes-Moull- 
neaux. Tél. 46.42.67 02. 


VENDS logiciels {K7) Vifi- 
Nathan neufs (éducatifs, 
jeux, création musicale) 
pour TO7, 107/70, TO8, 
MOS et MO6. Prix spéciaux 
pour les fêtes: lot de 24 
logiciels 1200 F ou 60 F le 
logiciel. ANDISSAC Michel, 
17 avenue d'Occitanie, 
31520 RAMONWVILLE-St- 
AGNE. Tél, 61.73.43.64,. 


VENDS (double emploi) 
TO7/70 (impeccable), 
Basic 1.0, Basic 128, 
modem, cartouche lTélétel, 
manuel, nouveaux jeux 
Sirius. Prix 3 500 F à débattre. 
VASSARD Jean-François, 2 
impasse de la Croix-Buisée, 
78890 Garancilères. Tél. 
34.86.5349 


VENDS TO7/70, ciavier 
mécanique, Lep, Basic 
10, manettes, Jeux, llvres. 
Etat neuf. Prix: 4000 F à 
débattre. ADDA Gilles, Les 
Vignes-Vimines, 73160 
COGNIN, Tél. 79.69.37.78. 


ECHANGE ou VENDS 

pour MOS fie 5° 
Axe, Vampires, Saphir, 
Mandragore..). ADKHIS 
Frank 63 rue des Roissys, 
92140 Clamart. 


VENDS ordinateur TO7, 
Basic 1.0, Lecteur, 
contrôleur et manette, 
nombreux jeux, prix 2000 F. 
ARGILLIER Jacques, 20 rue 
Victor Hugo, 92150 
Suresnes. Tél. 45.06.18.57 
(après 18h). 


VENDS TO7/70, clavier 
mécanique, CLED 320 K, 
LEP, modem, extension jeux 
et manettes, programmes. 
Prix: "4 500 F où 
séparément. LAUER 
Dominique, 13 rue des 
Myosotis, 57157 Marly. Tél. 
87.63.66.58. 


VENDS ou pere 
logiciels pour TO07/70, 
MOS : Football, Super 
Tennis, Flipper, 5° axe, 
Invasion, Pulsar 2, Runway, 
Armada, Multiplication 
casse-tête. BARNET 
Christophe, 4 place Jean- 
Deschamps, 31109 
Toulouse. Tél. 61.44.87.02. 


TEO annonces 


Pour rédiger votre annonce, utillsez ce bon ; écrivez très lisibiement en majuscules. 


..… Vile: 


VENDS TO9, écran HR 
couleur, crayon, souris, 
Intert. Jeux, deux manettes, 
Colorcalc, Statist, Graphi- 
ques, Colorpaint, Mineur, 
Las Vegos, Imprimonte PR- 
90600-89/132 col, 2 livres 
sur TO9, revues. Prix: 9 500 
F. LUBAT, Versailles. Tél. 
39.53.78.63. 


VENDS logiciels Thomson 
30 F pièce, plus listings. 
FIMBEL Bruno, 18 rue du 


Meyde, 67130 BAREM- 
BACH. 
VENDS 107/70, QDD, logl- 


cleis, Prix : 2350 F. TO7/ 
70 seul : 1 800 F (très bon 
état]. QDD seul : 650 F. 
Contrôleur + manettes 
Thomson : 150 F, TURPIN 
Alexis, 18 rue de la Cave- 
de-Chatenoy, 77132 LAR- 
CHANT. Téi, 64.28.23.19, 


CHERCHE possesseurs de 
MOS pour échange de 
logiciels. LEBLANC Pierre- 
Eric, 19 bd de Brosses, 
+ DIJON. Tél. 80 30 82 
À 


VENDS MOS5, LEP, Méga- 
bus, QDD, 7 disques, car- 
touche assembleur, un 
Quick Chot Il, 24 super jeux 
(Barry Boxng, Sorcery, Sorti- 
lèges, 5e Axe, Lorann), 
nombreux livres. Prix : 2 900 
F. BERTRAND Yvan, 6 allée 
des Glycines, 55100 VER- 
DUN. Tél. 29.84.1 8.21. 


VENDS TO7/70, lecteur 
disquette 80 KO, son con- 
trôleur, moniteur couleur, 
imprimante thermique, 
livres, cartouche Gérez vos 
fiches. Prix: 4 800 F le tout. 
AELIMANN Patrick, 10 che- 
min des Bas Rochers, 
91620 La Ville du Bois. Tél. 
64490426. 


VENDS MOS clavier 
mécanique, lecteur de 
disquette avec son con- 
trôleur (80 KO}, Mégabus- 
Metal (12U), extension télé- 
matiquqe avec sa cartou- 
che Minitel. Prix à débat- 
tre: 3800 F. Pour tout 
acheteur, une imprimante 
thermiquePR90O 042 sera 
donnée. CHAUDRON 
Franck 12 rue du Petit 
Thouars, 75003 PARIS. Tél. 
42.71.08.25. 


VENDS TO7/70, lecteur 
contrôleur de disquette, 
2 joystick, extension musl- 
que et Joystick Mémo 7, 
DOS, MiniDos, documenta- 
tion, manuel, disquette. Le 
tout pour 2500 F. DEt- 
MARTY Jean, 26120 MALIS- 
SARD. Tél. 75.85.2628. 


VENDS MOS, lecteur K7, 
crayon optique, 2 
manettes, jeux, extension 
musique et jeux. Faites vos 
offres au 83.98.2800. JEAN- 
DIDIER Sébastien, 385 av. de 
la Libération, 54000 NANCY. 


Coupon à retourner 


correcternent rernpll 
à l'adresse sulvante : 


TEO 


26, rue Beaubourg 


PARIS 75003 





sans prétention pour 

toutes les machines. Il 
s’inspire du jeu du taquin et 
s'utilise avec le crayon 
optique ou la souris. 


U Un petit programme 


Le but est de reconstituer l'alphabet en faisant glisser 
les lettres. La case vide est codée par le caractère 64 : 
“@”. Ceci par souci de simplification de la programma- 
tion. Le programme commence par initialiser le point 
d'entrée dans le générateur pseudo-aléatoire par la 
boucle de la ligne 18. On tire un nombre tant que l’on n'a 
pas appuyé sur une touche. En ligne 22, on effectue un 
brassage du tableau T qui contient les entiers de 0 à 15. 
(À ce propos, en ligne 14 on a enjambé l'élément O mis 
automatiquement à Q par le DIM). Ce brassage est une 
autre manière d'effectuer un tirage sans remise, Le 
brassage consiste à échanger les deux éléments dési- 
gnes par le tirage aléatoire. On l'effectue 32 fois. En 
ligne 24 on décrit un caractère graphique qui servira de 
pointeur du crayon optique ou de la souris. En ligne 26, 
on affiche le pouce-pouce. 


TEOTRUCS 


POUCE-POUCE 


Ligne 28-36 
boucle principale. 


128 : recueil des coordonnées de l'organe de pointage, 
conversion graphiquecaractère et acquisition dans A$ 
du caractère présentement affiché à l'écran. 

L30 : matérialisation de la visée. 

L32 : scrutation à la volée de la gachette de l'organe de 
pointage. Pour les possesseurs de souris désirant acti- 
ver le trigger de droite, changer le zéro de la fonction 
MTRIG par une fonction mathématique donnant toujours 
1, par exemple, la constante 1. Si l'on détecte un appui 
quelconque on va effectuer la servitude de l'événement 
à partir de la ligne 38. 

L34 : interrupteur tout ou rien d'arrêt du jeu. Dans le rôle 
de l'interrupteur : la barre d'espacement. 

L36: remise en état de l'écran après affichage du 
collimateur et fin de la boucle principale. Si le clignote- 
ment vous paraît trop rapide introduire une ligne à retard 
de quelques millisecondes à quelques dixièmes de 
secondes. 


138 : 58 
gestion des mouvements. 


L3B : si l'on pointe sur la case vide on ne fait (presque) 
rien, 

LA40 : de même quand on pointe en dehors du jeu. 
L42-48: détection de la position de la case vide et 
branchement vers la ligne ad hoc. 

L50 : sinon (presque rien). 

L52-58 : on échange la case vide et la case pointée. 

L52 : case vide à droite. 

L54 : case vide en dessous. 

L56 : case vide à gauche. 

L58 : case vide en dessous. 


On peut améliorer l'ergonomie du jeu en autorisant des 
translations de plusieurs cases à la fois, quand cela est 
possible naturellement. La programmation est plus com- 
pliquée et une solution élégante serait d'utiliser une 
forme de récursivité. 


Sophus Lie 


VERSION CRAYON OPTIQUE 


10 *’POUCE-POUCE (CC) TECphile 1987 

182 CLERR, ,1:DIMT(15) 

14 FOR I=1 TO 15:TCID=I:NEXT 

16 CLS:PRINT”IAPEZ UNE TOUCHE POUR COMME 
NCER”; 

16 FOR I=-1 TO O:X=RND:I=INKEYS=""”:NEXT 
20 CLS 

ee FOR J=1 TO 32:K=INTC15*RND)+1:L=INT(1 
SXRND)D : X=TCKD: TCKD=TCLI: TCLI=X:MNEXT 

24 DEFGRS(O)=62,62,62,6e,62,6e,6e,6e 

26 FOR I=0 T0 3:LOCATE 18,8+1,0:FOR J=O 
TO 3:PRINT CHRSCGEH+TCI*4+J));:MNEXT:NEXT 
PB INPEN X,Y:X=X08:Y=YEB: AS-CHRSCSCREENC 
X,YD) 

30 LOCATE X,Y:PRINT GR$(CO); 

32 IF PTRIG THEN 38 

3% IF INKEYS=”" ” THEN END 

36 LOCATE X,Y:PRINT A5; :GOTO 28 

38 IF AS="C” THEN 36 
HO IF AS=" ” THEN 36 
SCREENCX+1,Y)=64 
SCREENCX.Y+1)=64 THEN 54 
SCREENCX-1,Y)=-64 THEN 56 
SCREENCX,Y-1)=64 THEN 56 
SO GOTO 36 

Se LOCATE X,Y:PRINT"G"; 
NT AS; :G60T0 2B 

SH LOCATE X,Y:PRINT”G”; : LOCATE 
NT AS; :G0T0 28 S 
S6 LOCATE X,Y:PRINT"G”; : LOCATE 
NT AS: :G0T0 28 

S5B LOCATE X,Y:PRINT”"G”; : LOCATE 
NT AS: :G0T0 28 


1HEN Se 


:LOCATE X+1,Y:PRI 
X,Y+1:PRI 
X-1,Y:PRI 


X,Y-—1:PRI 


VERSION SOURIS 


10 ’POUCE-POUCE CC) TECphile 1987 

12 CLERR, ,1:DIMIC15) 

LH EUR I=1 IO 15: ICI2=1I:NEXT 

16 CLS:PRINT"TAPEZ UNE TOUCHE POUR COMME 
NCER" : 

18 FOR I1=-1 TO O:X=RND:I=INKEYS="":NEXT 
80 CLS 

2e FOR J=1 TO 32:K=INTC1S*RND)+1:L=INTC1 
SXRND) : X=TCK):TCKI=TCL):TCL)=X:MNEXT 

et DEÉFORSCO)-Ee,6E,62,62.,68,0e2,6e,62 

e6 FOR I=0 TO 3:LOCATE 168,8+1,0:FOR J=0 
TO 3:PRINT CHRS$SCBH+TCI#4+J)); : NEXT:NEXT 
eB INMOUSE X,Y:X=XGB:Y=YG8:AS=CHRSCSCREE 
NCX,YD) 

30 LOCATE X,Y:PRINT GR$(O); 

32 IF MIRIGCO)THEN 38 

34 IF INKEYS=” ” THEN END 

36 LOCATE X,Y:PRINT ÀS; :60T0 2B 

38 IF AG=°C” THEN 36 

4O IF ÀAS=” ” THEN 36 

He IF SCREENCX+1,Y)2=64 THEN 5e 

44 ÎF SEREENCX, Y+*13=64 THEN 5% 

46 IF SCREENCX-1,Y)=64 THEN 56 

48 IF SECREENCX,Y-1)=64 IKEN SE 

50 GOTO 365 

5e LOCATE X,Y:PRINT”G”;:LOCATE X+1,Y:PRI 
NT ÀS; :G0TO 28 

S4 LOCATE X,Y:PRINT”G”;:LOCATE X,Y+1:PRI 
NT AS; : GOTO 2B 

56 LOCATE X,Y:PRINT”G”;:LOCATE X-1,Y:PRI 
NT AS; :G0T0 e8 

58 LOCATE X,Y:PRINT”G”;,:LOCATE X,Y-1:PRI 
NT ÀS; : GOTO 28 


TEO Ne 11 - FEV. 1987 
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Animatix 
Le dessin animé est au bout de la souris ! Eh oui, avec 
ce logiciel de conception graphique, un Thomson et des 
talents de créateur, créer des animations efficaces 
devient une réalité accessible au plus grand nombre. 
Cet utilitaire réalise par exemple des livres animés, des 
jeux d'arcade, des présentations graphiques en haute 
résolution avec les effets les plus divers. La disquette 
contient un programme de création, un autre de création 
et gestion de répertoire et une démonstration illustrative. 
La création de dessin consiste d’abord à choisir un 
format, la couleur sur la palette et à réaliser point à point 
en utilisant la souris ou le crayon optique ceci sur une 
fenêtre de travail. Des options de décalage des points 
ou des lignes sont prévues ainsi que des effets de 
renversement et des symétries. 
Chaque dessin est accessible pour être repris par chan- 
gement de fenêtre de travail ou encore transféré dans 
une autre fenêtre. 
Après le dessin, l'animation peut commencer avec 
détermination des séquences, visualisation image après 
image en avant ou en arrière et enfin animation vue au 
ralenti pour ajouter des images si nécessaire. Lorsque le 
travail convient, il est sauvé sur disquette ou cassette. 
La fonction répertoire permet de gérer les programmes 
graphiques. On pourra ainsi charger ou sauvegarder les 
fichiers de dessin sur des supports choisis. Un même 
répertoire pourra mixer plusieurs fichiers de dessin. 
Mais le gros avantage d'Animatix reste la possibilité 
, d'utiliser les séquences graphiques dans des program- 
mes Basic ou Logo ou Assembleur, Et attention cela va 
très vite puisque l'animation peut varier de 25 à 1000 
affichages par seconde. On peut imaginer l'emploi de 
quelques boucles d'attente ! La compatibilité avec 
Colorpaint et Caractor 2 est acquise. Alors les artistes, 
les créateurs, les fondus de BD animée, à vos souris ! 
Animatix vous sera vite indispensable tellement c'est 
facile et efficace. 


Infogrames 


Enigme à Oxford 


Oxford, c'est un peu le symbole de l'Université BCBG, 
avec réputation mondiale, anglais châtié et rameurs 
combatifs. Un symbole pour ceux qui aiment et prati- 
quent la langue de Shakespeare. 

Pour ce logiciel éducatif, un étudiant de la célèbre 
université sert de prétexte à une ténébreuse affaire 
d'espionnage et surtout permet à l'élève de se perfec- 
tionner en anglais écnit et oral. Ainsi, dès le départ, ce 
logiciel veut capter l'attention de l'utilisateur, le mettre 
en Situation de bien comprendre les données de l'his- 
toire et de ses quatre épisodes. L'énigme policière va 
permettre de se perfectionner par enrichissement du 
vocabulaire et une pratique vivante de la grammaire. 
Chacun des quatre épisodes est constitué de quelques 
pages à lire et feuilleter avec un dictionnaire en ligne 
pour les mots nouveaux. Entre chaque épisode, cinq 
questions de compréhension sont posées avec rappel 
possible du texte ; des exercices de grammaire avec 
rappel et évaluation illustrent un point précis ; des exer- 
cices lexicaux sur les mots rencontrés dans le texte de 
l'épisode valident l'apprentissage et enfin des mots 
croisés apportent la détente méritée. 

La grammaire permet de voir ou revoir la place de 
l'adverbe, le prétérit, les formes progressives, le style 
indirect ou encore le gérondif. La réalisation en assem- 
bleur, la bande audio intégrée, la souplesse d'utilisation 
et la gestion compréhensive des erreurs placent cet 
éducatif auprès des meilleurs du genre. 
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Ulys 
Système auteur 


Ulys est un système auteur adapté à l'enseignement 
programmé. Son utilisation est simple : il suffit en effet 
d'une seule journée pour réussir à créer une oremière 
“petite leçon”. Pour aller plus loin, il faudra écrire un 
cahier des charges associé à un scénario pédagogique. 
Démarche fondamentale de tout enseignant soucieux 
de la qualité de son enseignement. Il suffira à l'utilisateur 
de posséder trois qualités en plus de celle de pédagogue 
déjà citée : 

— Savoir mettre en route un ordinateur. 

— Savoir utiliser son clavier. 

— Savoir lire la documentation jointe au logiciel. 


Cette demière constitue également une initiation assez 
simple à l’aide d'exemples bien construits. 

Le système ULYS est écrit en LSE et est donc interfacé 
avec tous les outils écrits dans ce langage {y compris 
l'assembleur). 1} permet en particulier d'obtenir des ana- 
lyses de réponses plus “pointues” si nécessaire, et 
Surtout d'avoir accès à des analyses numériques, ce 
que ne permettent pas d'autres systèmes plus coûteux. 
ULYS existe en version nanoréseau, disquettes Thom- 
son et en version compatible PC. 


Disponible au CNDP. 
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Pyramage 
Pyramides des âges 


Pyramage est destiné aux élèves de collège et plus 
précisément au cours de géographie, matière 
aujourd'hui encore assez pauvre en logiciels. Ce logiciel 
se propose d'aider à construire et à étudier les pyrami- 
des des âges de différents pays. Pour cela, il gère une 
base de données que le professeur peut enrichir ou 
corriger par l'intermédiaire d'un module inaccessible 
aux élèves. Ainsi l'enseignant pilote-t-il le travail à partir 
du poste numéro 1 du nanoréseau, les élèves se répar- 
tissant sur les autres postes. 
A partir de ces données, Pyramage permet de : 
— voir la pyramide des âges ('ordinateur n'est pas 
d'une spécificité extraordinaire pour cette fonction) ; 
— la voir se construire pas à pas ; 
— la construire avec l’aide de l'ordinateur, ce qui est 
déjà plus intéressant ; 
— voir le tableau de population associé. 
La simulation qu'on pouvait attendre avec un tel sujet 
est inexistante. I} serait donc peut-être souhaitable de 
prévoir une version 2. De plus, ne serait-il pas intéressant 
de réfléchir à un travail pédagogique dans lequel les 
élèves utiliseraient justement ce module pilote ? Il suffi 
rat pour cela de rendre son utilisation un peu plus 
conviviale. Ce logiciel est édité chez FIL dans une 
version Nanoréseau, accompagné d'une petite docu- 
mentation de dix pages. 


Disponible chez FIL. 
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Rédaction 


A l'heure de la diffusion massive des ordinateurs et du 
culte de la technologie, il est bon de se souvenir que 
l'essentiel reste la créativité et l'expression claire et 
aisée de sa pensée. J'ose dire qu'il y a bien plus 
d'intelligence dans une rédaction que dans un pro- 
gramme informatique. Mais bien écrire, s'exprimer tout 
Simplement est chose difficile à faire et à faire connaître 
et appliquer. 

Ce logiciel est en fait un guide de réalisation d'une petite 
rédaction. L'élève doit rédiger en cinq paragraphes sa 
rédaction sur le sujet et la forme de son choix. Les sujets 
sont à choisir parmi le portrait, la description et la 
narration. Pour chacun des sujets quatre formes sont 
proposées (ordre logique, expansion réduction, ordre 
chronologique, flash back, récits alternés, etc.). Avec ce 
didacticiel destiné aux classes de primaire, l'enfant 
apprend à découvrir les formes du récit, à structurer les 
éléments de création, à guider et organiser sa pensée. 
Le logiciel est d'emploi facile, bien présenté et même si 
le nombre de sujet est limité, it y a beaucoup à retenir 
dans l'idée de base. L'aide à la création littéraire est une 
nouvelle frontière pour l'ordinateur. Ce logiciel est un 
peu un pionnier. 
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Facil 


FACIL c'est facile ! Facile, non ? En tout cas, c'est un 
utilitaire pour les T07/70 et MO5 qui permet d'oublier 
l'anglais et de se doter de quelques instructions nouvel- 
les. Une fois Facil chargé, on peut programmer en 
français, facile à réaliser si l'on connaît la table de 
correspondance donnée avec le produit. En gros, si 
vous voulez afficher un message, vous pensez au Print 
du Basic et vous tapez ECRIS. Après cela il est aussi 
possible de créer des lutins (sprites) et de gérer leur 
affichage (localisation et temporisation}. Et toujours faci- 
lement, on pourra visualiser un lutin, afficher en 64 x 64 
des caractères géants là où l'on veut, disposer de 
l'instruction d'échange (swap) et d'une instruction de 
recherche de chaïne dans un programme Basic. Même 
pour le MO5, les choses ont été facilitées avec par 
exemple la génération automatique du programme d’im- 
plantation des lutins. Alors, c’est facile, si l'on utilise 
FACIL, on se facilite la vie du programmeur sinon on 
s'en passe facilement. 
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Logomus 
Un environnement musical 
sous LOGO sur nanomachine 


Logomus est destiné à faire du solfège de manière 
captivante et évolutive en respectant le rythme d'acqui- 
sition de l'enfant. Celui-ci s'approprie les macroprimiti- 
ves existantes au fur et à mesure de ses besoins et 
invente les siennes chaque fois qu'un palier est franchi. 
ILne manque qu'une sortie plus musicale que celle des 
Thomson pour en faire un véritable instrument de musi- 
que. 


Disponible au CNDP. 


A4 


Arab1 
Apprendre l'arabe 


Certaines matières sont très déficitaires en logiciels 
pédagogiques, c'est en particulier le cas de la langue 
arabe qui présente à la fois deux particularités : deux 
cents établissements en France l'enseignent et son 
écriture crée des difficultés à la réalisation de program- 
mes sur ordinateur. 

Ce logiciel est le résultat d’un dialogue constructif entre 
plusieurs intervenants : 


— deux enseignants qui ont utilisé les travaux de 
recherche et de réflexion qu'ils avaient auparavant 
fait dans le cadre de l'INRP (Institut National de la 
Recherche Pédagogique) ; 

— l'inspection d'arabe qui a aidé à la concrétisation de 
ce projet en lui donnant son aval pédagogique ; ; 

— le CNDP éditeur du logiciel. 


Arabi est écrit en Basic pour les micro-ordinateurs 
Thomson MOS et TO7/70 ; il sera diffusé dans un pre- 
mier temps dans sa version nanoréseau pour laquelle il 
nécessitera trois disquettes : écriture, lecture, dictée, 
écriture des noms, des dates, des féminins, conjugai- 
sons à tous les temps de tous les modes, etc. 


Disponible au CNDP 


Phrases cachées 


Jeu de logique et de linguistique, Phrases cachées est 
un didacticiel qui met également en oeuvre imagination 
et mémoire. 

Son principe est simple et l'effet très attrayant. L'idée 
est de deviner une phrase de quatre ou cinq mots en un 
nombre limité d'essais (10 ou 15) et dans une langue 
choisie à l'avance (français, allemand, anglais espagnol). 

Sur des indications codées du logiciel, l'élève doit appli- 
quer des règles ee de … pour trouver d'autres 
mots ou lettres. Au ses sont soit des 
dictons soit des titres ti films. Es aussi la mémoire 
qui guide vers la solution. Pour diversifier l'usage il est 
possible à l'utilisateur de créer ses propres fichiers de 
phrases. L'emploi du logiciel est simple, les choix propo- 
sés sont facilement validés. Il reste quelques petites 
imperfections au moment des affichages des résultats. 
En somme une excellente idée, réalisée sobrement et un 
jeu auquel on se prête volontiers. L'utilisation en langues 
étrangères est son débouché. 
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Utilitaire 


TGM est un utilitaire de pes Graphique de Mesu- 
res destiné aux enseignants de sciences physiques et 
de sciences naturelles, mais é t de mathémati- 
ques. Il est disponible sur T07/70, MO5 en nanorëseau 
et en poste isolé disposant de la cartouche LSE. 

Il permet de saisir une ou séries de mesures 
par l'intermédiaire d'un mini-tableur d'utilisation très 
simple. Il trace la courbe représentant l'une des gran- 
deurs, YŸ, (au choix) en fonction d'une des autres, X, et 
de comparer cette courbe à celle obtenue par une 
fonction mathématique Y=f(X à choisir par l'élève. 

TGM incite les élèves à pratiquer la modélisation d'un 
phénomène, et d'en comprendre le sens et l'intérêt. 


Disponible au CNDP. 
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Tchou-Ichou 


Toujours pas de documentation et de mode d'emploi 
pour cette série de logiciels. Celui-ci ajoute même une 
erreur dans les quelques lignes de présentation de la 
jaquette : le petit train de la logique comporte trois 
wagons et non quatre. Ce logiciel est en effet un petit jeu 
de logique qui consiste à composer un train de trois 
wagons de couleurs différentes pour obtenir un modèle 
proposé. Pour réaliser cela, le jeune joueur dispose de 
diverses commandes qu’il choisit au crayon optique. 
Quatre niveaux de difficulté sont prévus. Dans les deux 
premiers, chaque proposition d'action est immédiate- 
ment suivie d'effet. Dans les deux demiers niveaux, il 
s'agit de programmer l'ensemble des manoeuvres puis 
de les faire exécuter ensemble. Le train peut avancer ou 
reculer, on peut accrocher ou décrocher des wagons ou 
encore ouvrir et fermer l’aiguillage de la voie de manoeu- 
vre. En un minimum de manoeuvres l'enfant devra 
présenter le train correct devant la gare. 

Le graphisme est acceptable et le jeu amusant. I semble 
cependant que certaines manoeuvres soient mal com-  ; 
prises par le programme ce qui oblige à le relancer. 
Enfin tout cela peut aider à apprendre à un enfant à 
organiser, planifier des actions et surtout à imaginer les 
effets produits pour obtenir un résultat connu à l'avance. 
Dès quatre ans un enfant peut utiliser ce petit logiciel. 
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Qu'est-ce que c'est ? 


Un TEOFUN est un concours réduit à une question 
à laquelle il faut répondre obligatoirement 
sur carte postale. 

Tout autre type de réponse sera refusée, 


Que gagnera-t-on ? 
Le nombre de lots et leur nature sont précisés 
sur Chaque TEOFUN, 
Pour gagner, il suffit de répondre à la question 
que vous découvrirez dans les pages de TEO. 


Les éventuels ex-cequo sont départagés 
par tirage au sort. . 
La liste des gagnants sera Dubé dans nos colonnes. 


La participation aux TEOfuns Imptique une 
acceptation totale du réglement dont une version 
complète peut être obtenue au journal. 


Une seule réponse par carte postale est autorisée. 
Les cartes comportant plusieurs réponses 
seront éllminées. 

Par contre, ren n'empêche de concourir 
pour plusieurs TEOfuns, avis aux champlons| 





Adressez votre ds postale suffisamment affranchle 
int le 28 février 1987, u 
Pr la poste faisant fol, à: 
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Les quatre saisons 


Voilà le type même du logiciel dont le contenant laisse 
quelques doutes sur le contenu. Vous achetez une 
petite boîte à l'arrière de laquelle en apprend que le 
logiciel vendu fait partie d’une nouvelle collection pour 
les tout-jeunes et qu'il doit éveiller l'intelligence et la 
sensibilité des enfants. Ambitieux programme mais com- 
bien prometteur. On apprend qu’il y a quatre jeux dont 
deux s'inspirent de l'album coloriage, un autre est un jeu 
de société et le demier un puzzle. On nous apprend 
enfin que des graphismes d’une étonnante poésie ser- 
vent de support à l'exercice de l'observation et du 
raisonnement logique. 

Tout cela est bien alléchant. A l'usage, les choses se 
compliquent puisque le “manuel complet” se résume en 
une Seule feuille descriptive des quatre jeux, plus uri 
biographie de l'auteur passionnante pour ses exégètes 
mais totalement inutile pour un utilisateur novice. Les 
cassettes ne sont pas repérées. C'est pourquoi il faudra 
beaucoup de patience pour trouver quelle face corres- 
pond à l'ordinateur utilisé et simplement quel est le nom 
du programme. Il reste alors la feuille de description ou 
bien la patience d’un vendeur qui prendra le temps de 
vous montrer ce qu'il y à vraiment dans ce logiciel. Ce 
livre d'images est bien difficile à feuilleter. Autant le 
lisser sur les rayonnages. 


Ere Informatique 








Mobile 


Simulation 

La simulation d'après Larousse : “Logiciel utilisant l'ordi- 
nateur pour l'étude ou la reproduction approchée, au 
moyen d’un modèle, d'un phénomène quelconque”. 
Avec cette approche, on peut constater que certains 
logiciels pédagogiques répondant à cette définition exis- 
taient avant qu'on leur en donne le label et que parmi 
ceux-là il y du bon (comme PAV ou BASAC) et du moins 
bon (comme HANOI). 

Ainsi, un logiciel comme BASAC qui simule une réaction 
de neutralisation d'un acide par une base peut être 
utilisé pour remplacer tout simplement une expérience 
ou pour aider l'élève à modéliser les réactions acide- 
base en pouvant simuler un grand nombre d'expériences 
pendant un temps court, ce qui est impossible en les 
réalisant réellement. Il n'y aurait plus alors bon ou 
mauvais logiciel de simulation, mais bonne ou mauvaise 
utilisation d’un logiciel de simulation à l'intérieur d'une 
progression pédagogique ! 

Un de ces logiciels de sirnulation va permettre aux 
enseignants de sciences physiques de toucher de plus 
près ces problèmes. MOBILE, édité par le CNDP, est 
disponible en version nanoréseau. Ce logiciel propose 
de faire “ressentir” la nature vectorielle de la force au 
travers des déplacements simulés à l'écran d’un mobile 
se mouvant sans frottement sur une surface plane et 
horizontale et devant y effectuer un parcours dans un 
labyrinthe. Ce logiciel est le résultat d'une collaboration 
entre des enseignants de physique de l'ENS de St. 
CLOUD et le CNDP. 


Disponible au CNDP. 
Rubrique réalisée par Lionel SIMON 


Composez le 36.15 sur votre 
téléphone, connectez-vous sur 
Minitel et tapez le code d'accès 
CHOK. Choisissez TEO, vous serez en 
direct avec votre service TEOmafic. 





42.00.14.63 
32,Rue de Lancry - 75010 Paris 
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Résultats des 


concours TEOfUN 
parus dans le numéro 8 


La bonne réponse au TEOfun 
n° | était: B (ASCII) 


Les gagnants sont : 
Check Jean, de Mouans Sartoux Sablonnière 
Guy. de Cahors Grison Raymond, d'Auneaui 
Renom Nicolos, de Bousat Antzlinger Robert, de 
Muizi Joelle, de Grenoble Pauget 
Christophe, de Cusset Bourez Joelle, de Douai 
Rotier Michel, La Ferrière Dosdat Rémy. de 
Morin Jean-Pierre, de Vouille Dubois 
Laurent, de St-Quentin é Jeon-Françols, de 
Brive M. Desbok, de Chaville Slouiiie Stéphane, 
de Couines Noel Julle, d'Alençon Leprince, de 
Montreuil Guiheneuf Gérard Blondeau Nicolas, 
de Champagnoïe Ferrez Yvette, de Beton. 


La bonne réponse au TEOfun 
n° 2 était: À (entrée). 
Les gagnants sont: Chech Jean, de Mouans 
Sartoux Andissac Michel, de 
Ramorville-st-Agne Franquevile Anaud, de 
Toulon Bolla Marcel, de Cuers Solé Georges, 
de Poncin Weisse Daniel, de 
Rosières-aux-Sabines Larnuzeaux Michel, 
Suly-sur-Loire Barnet Christopne, de 
. Toulouse Richard Ollier, de Montbrison 
Guyon Charles, de Chalstte-sur-Loing Paulet 
Jean, de Firminy Gulheneuf Gérard, de 
Missilac Amoud Dominique, de 
St-Gemmain-en-Laye Sourroullle .! L. . de 
Thiais Zoyo Marc-Hervé, de Lavemose 
Lacasse Bégué J.F., de Brive Desbois, de 
Chaville Dubois, de St-Quentin Dosdat Rémy, 
de Chauny Morin J-P., de Vouille, 


La bonne réponse au TEOfUn 
n° 3 était: trop grand. 


Les gagnants sont: Courautt Frédéric, de 
Chinon Darsteln Francis, de Bischwiller Rater 
Michel, de La Femière Hertz Maurice, de 
Thlonvile Angélle Alain, de Paris Grison 
Raymond, d'Auneau Hennebert Claude, de 
Sucy-en-Bre Antzinger Robert, de Mutzig 
Borrel J. L., de Laon Boucher Franck de 
Laval-en-Bre. 


Super concours) et 10 de Janvier 
paraîtront dans le numéro de mars. 
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HMS Cobra 
Refaire l'histoire 


L'hiver est là ! Pas question de sortir Sans 
affronter les affres du vent glacial ou de 
la pluie incéssante. Comment meubler 
ces après-midis claustraux et les 
week-end qui n’en finissent plus ? La 
réponse nous est donnée ce mois-ci par 
Cobra Soft avec une nouvelle 
superproduction (encore l), j'ai nommé 
HMS COBRA. 


Comme à son habitude, Cobra Soft nous 
livre à l'intérieur d'un coffret un 
ensemble de pièces, dont un livre de 
poche “La Bataille des convois de 
Mourmansk”, sujet repris par ce jeu de 
stratégie militaire. Vous ne serez plus 
l'Hercule Poirot de service devant 
résoudre une énigme policière mais 
plutôt un commandant des forces alliées 
face à l'envahisseur teuton. 


La complexité et l'interaction de tous les 
paramètres entrant en compte dans la 
progression d'un convoi naval dans un 
milieu aussi hostile que l'océan glacial 
arctique sont parfaitement rendu. Pour 
mener à bien l'opération, il faut asssurer 
tour à tour les fonctions d'amiral pour 
superviser la Stratégie de progression, de 
défense et même d'agression du convoi, 
de commandant pour diriger séparément 
chaque navire, de commodore pour 
acheminer les marchandises et enfin 
d'homme de bord derrière la DCA ou au 
lance-torpilles. Le but d'HMS COBRA 
n'est pas de recréer visuellement chaque 
situation, n'attendez donc pas des 
graphismes réalistes et variés, l'intérêt 
réside avant tout dans le nombre de 
paramètres qui entrent en compte aussi 
divers que la météo, le moral des troupes 
adverses, la date de départ et par 
conséquent la durée du jour et de la nuit... 
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500 cc Grand prix 
Un circuit réussi 


Puisqu'il est rare qu'un logiciel de course 
auto ou moto soit réussi sur Thomson, il 
convient de célébrer tout particulière- 
ment ce produit mis au point par 
Microïds. Pour une fois en effet, on a 
réellement l'impression de participer à 
une compétition sur circuit. Pour aboutir 
à ce résultat, les gens de Microïds ont 
choisi de s'intéresser au championnat du 
monde moto 500 cm3, et ont organisé 
eur jeu comme si vous étiez un des 
pilotes participant à ce championnat. 
Pour conquérir le titre, il vous faudra 
donc rivaliser avec cinq concurrents 
(dont quatre sont fictifs, le cinquième 
pouvant être piloté par un de vos amis) 
et ce tout au long des plus grands circuits 
moto du monde : Silverstone, Spa, 
Jarama. L'écran de ce jeu est très 
ergonomique puisqu'on dispose de deux 
écrans de contrôle {un pour chaque 
pilote) avec en bas un tableau de bord 
détaillé. S'il est possible de jouer au 
clavier ou au joystick, nous vous 
conseillons expressement ce dernier 
beaucoup plus simple d'emploi pour 
négocier les virages. 


Signalons un petit problème de 
perspective pendant les courses qui 
permet mal de visualiser la place de 
chacun des concurrents, surtout lorsque 
ceux-ci abordent un virage groupé. 
Néanmoins, ce sera à vous de faire la 
différence et de bien maîtriser votre 
engin pour aborder le suivant seul en 
tête. Et ce n'est pas si simple ! 
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Enfropie 
Désordre 


A l'image de “Enterprise” et de l'équipe ** 
de Star Trek, le vaisseau spatial Symersix 
déambule de galaxie en gataxie, à la 
recherche d'une étoile hospitalière. A 
proximité de la planète blanche de la 
galaxie Sumo, les radars et autres 
scanners détectent une forte agitation 
magnétique : le genre de mission tout à 
fait adaptée au nouveau robot 
Explorater 3. Objectif : rétablir l'ordre 
physique sur la planète. 


La qualité de la réalisation est tout à fait 
convaincante. Aux commandes du robot 
“Explorater 3" (monté sur chenilles), 
vous découvrirez des salles sous trois 
époques (l'âge de pierre dans les grottes, 
le Moyen Age dans un manoir 
gigantesque et enfin le futur dans des 
décors de fer et de béton), encombrées 
d'objets aussi divers qu'hétéroclites. 
Grâce à la représentation en trois 
dimensions des décors, il est possible de 
jouer avec les objets pour attteindre une 
porte inaccessible, en obstruer une autre 
ou tout simplement, les transporter dans 
d'autres salles. 

Le robot se déplace dans quatre 
directions et respecte parfaitement la 
représentation en 3D. Alors qu'il visite 
dangereusement la planète, vous êtes 
confortablement installé dans le 
vaisseau, à lui dicter le moindre geste, 
l'oeil Sur l'écran de visualisation. La 
particularité d'Explorater 3 est de 
pouvoir identifier immédiatement tous 
les objets qu'il saisit et d'en donner 
parfois beaucoup d'informations pour 
vous permettre résoudre l'énigme de la 
planète bleue. 


Même si le scénario n'est pas un modèle 
d'originalité, Entropie est largement 
sauvée par la qualité des graphismes, de 
l'animation et de la représentation en 3D. 





+ 


































The way of fhe tiger 


| Sous ce nom, qui n'est pas sans rappeler 
, letitre de la musique d'un des films de 
Stallone, se cache un logiciel dont ce 
même Stallone aurait pu être le héros. 


Jeune initié aux arts martiaux, VOUS 
voulez approfondir vos connaissances 
auprès du grand maître Naïjishi qui, pour 
vous endurcir et faire de vous un “Ninja“ 
vous fera subir trois épreuves durant 
lesquelles vous devrez vaincre des 
adversaires qu'il VOUS aura choisis. Et le 
moins qu'on puisse dire c'est qu'il sait 
trouver des adversaires digne de ce 

nom : le Minotaure aux poings d'acier ou 
le iutin magique de la première épreuve 
seront des écueils que seul une parfaite 
maîtrise des seize types de mouvement 
ou d'attaque de votre joystick vous 
permettra de franchir. 


Bien échauffé par ces combats dans le 
désert d'Orb, c'est sur un tronc glissant 
au-dessus d'une rivière qu'il vous faudra 
affronter la Seconde épreuve tout aussi 
éprouvante. Ce cap franchi, vous pourrez 
enfin achever votre initiation par un 
combat au sabre (très bien simulé) avant 
d'affronter dans un ultime face à face 
votre maître Naïjishi, au terme duquel 
vous deviendrez peut-être Ninja le sage, 
protecteur des pauvres et des opprimés 

: Un rôle en or pour Rambo... et 
peut-être pour vous. (Ce logiciel a reçu 
un Tilt d'Or-Canai Plus 86.) 


_ 


Monopoly : 
La case dévoart sur micro 


Comme le veut la règle, on ne change pas 
un jeu qui gagne. Vous retrouverez donc 
dans cette version micro-informatique 
tout ce qui fait le charme du jeu le plus 
vendu au monde : les grandes artères 
parisiennes et leurs bâtisses sont 
toujours à vendre, les gares ont le même 
nom, jusqu'à la prison qui est faite des 
mêmes barreaux. Alors, si tout est 
identique, pourquoi avoir mis au point 
cette version ? La réponse se trouve là 
encore dans le jeu : d'une part vous 
pouvez limiter le temps du jeu à volonté 
et d'autre part vous mesurer à 
l'ordinateur. Si vous êtes seul et que la 
passion du monopoly vous démange, 
Vous pourrez ainsi l’assouvir en tête à 
tête avec votre micro. Les modalités de 
jeu, eiles non plus, ne changent pas : on 
avance à coup de dés et la présentation 
assez ergonomique de FIL facilite le 
maniement des immeubles et billets de 
banques. Reste malgré tout que cette 
vision sur écran n'est pas aussi bonne 
que celle qu'on peut avoir avec le jeu 
“carton”. 11 y manque notamment le coup 
d'oeil d'ensemble qui permet de faire 
rapidement le point de la situation. En 
d'autres termes, disons que nous l'avons 
trouvé moins convivial et moins ludique 
que son original. 
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Supertennis LL, 
Améliorer sa technique 


L'hiver étant une saison creuse pour les 
grands tournois de tennis, il vous reste 
deux solutions pour vous adonner à ce 
sport : soit le pratiquer réellement dans 
un court couvert, soit essayer 
Supertennis de Fil. Si vous choisissez 
cette seconde solution, nul doute que 
vous sortirez de l'hiver plus technicien 
que vous ne l'étiez auparavant. Tous les 
coups sont en effet permis : coup droit, 
passing, montée au filet, amorti, jeu de 
fond court et même lob pour les plus 
talentueux. 

C'est dire si toutes les stratégies 
tennistiques sont envisageables (le 
logiciel allant même jusqu'à simuler la 
course des ramasseurs de balles, quand 
celles-ci échouent dans le filet, et l'ombre 
de la balle pour mieux visualiser sa 
trajectoire). 

Bien sûr, les amateurs tâtillons pourront 
toujours faire des reproches : la balle est 
quelquefois excessivement lente et on 
peut tenter des coups, des approches 
impossibles Sur un vrai court. 
Néanmoins, la manipulation du joueur 
étant relativement aisée et la 
visualisation du jeu très bonne, il serait 
surprenant que des amateurs ne 
trouvent pas là de quoi tromper leur 
envie de terre battue où autre gazon. 
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par la suite sans avoir à se connecter au 
serveur (mode local). Cette première 
fonction d'émulation minitel en mode 
local ou connecté “convivialise” 
agréablement l'utilisation des serveurs et 
permet d'apprécier les qualités 
graphiques de certains grâce à la 
visualisation en couleurs. 


Les minitels fournis par les PTT utilisent 
les lignes téléphoniques pour véhiculer 
des données informatiques. Ces données 
informatiques sont transformées en 
courant électrique par un circuit appelé 
modem (modulateur-démodulateur). Or, 
la prise péri-informatique du minitel 
permet d'utiliser ce modem 
indépendamment de celui-ci. De là à 
transmettre les programmes par un 
ligne téléphonique, il n'y à qu'un pas, 
franchi par Telkit. La fonction de 
téléchargement permet donc de 
transmettre un programme à un 
correspondant par l'intermédiaire du 
téléphone à condition que celui-ci soit 
équipé du minitel et de Telkit (pas 





Telkif 
Télécharger sur Horse 


La grisaille du Minitel vous déprime et 
son clavier vous agäce ? Si vous possédez 
un Micro-ordinateur Thomson, Telkit 
Vous débarasse de ces inconvénients et 
permet même une autre utilisation du 
minitel.. 


Ce logiciel est livré avec un cordon 
magique qui, en reliant la prise 
péri-informatique du minitel à la prise 
cassette de l'ordinateur, permet 
d'améliorer l'utilisation du minitel. Les 
images vidéotex apparaissent alors 
nettement sur le minitel (en dégradé de 
gris) mais aussi sur le moniteur de 
l'ordinateur (en couleurs). Les réponses 
sont alors saisies sur le clavier de 
l'ordinateur ce qui évite bien des alléas 
rencontrés avec les catastrophiques 
claviers des minitels. Il est possible à tout 
moment de sauvegarder une page-écran 
sur disque ou cassette pour les recharger 
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forcément sur Thomson). En effet, le 

standard de téléchargement mis au point 

par Infogrames permet de télécharger 

des programmes à partir de n'importe 

quelle machine acceptant Telkit 

(Thomson, MSX et bientôt IBM PC et t 
compatibles), et prochainement à partir 
d'un serveur Infogrames. Une 
importante bibliothèque de logiciels au 
prix de la communication téléphonique 
sera alors disponible. | 


Le choix des options par menus 
déroulants facilite d'autant plus 
l'utilisation de ce logiciel d'ores et déjà 
indispensable pour les Thomsoniens 
minitellistes. 
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Le Nanoréseau 
Ph. CAMPAGNE et M. FAY 


Dans ie plan de mise en place de 
l'informatique dans les écoles et les 
lycées, ce sont près de quatre-vingt mille 
micro-ordinateurs qui ont été connectés 
en réseau dans une architecture appelée 
Nanoréseau. Ce réseau local relie entre 
six et huit micros (MO5 et TO7) par 
l'intermédiaire d'un gestionnaire de 
réseau. Cet ouvrage, concis et précis, 
présente aux enseignants et à tous ceux 
intéressés par la téléinformatique les 
notions indispensabies à une bonne 
compréhension du mode de 
fonctionnement de ces outils et ouvre 
des perspectives d'emploi dans le cadre 
de l'enseignement. 

Pour cela, le livre est divisé en deux 
parties. La première présente les notions 
essentielles attachées aux réseaux, aux 
transmissions et à leurs procédures et un 
exemple de mise en communication de 
deux MOS5. 

La seconde partie s'intéresse aux 
avantages de l’utilisation de l'outil 
télématique en EAO (Enseignement 
Assisté par Ordinateur). Des exemples 
concrets sont développés : un service de 
messagerie, un jeu de gestion de groupe 
et un exercice d'EAC. Les avantages du 
Nanoréseau sont indéniables. Il 
représente une ouverture vers le travail 
de groupe et enrichit l'enseignement. 
Ce livre apporte des renseignements 
utiles, faciles à assimiler et propose des 
idées d'emploi particulièrement 
judicieuses. 


SYBEX 


Les ordinateurs 
et les 


microprocesseurs 
W. MERCOUROFF 


Voici un ouvrage principalement 
consacré aux aspects matériels de 
l'informatique, fruit d'une dizaine 
d'années d'enseignement supérieur. 
Pouvoir disposer d'un tel ouvrage est 
une excellente chose. Il est en effet 
difficile de trouver des éléments 
bibliographiques qui couvrent un aussi 
large sujet. 

On trouve ainsi une introduction aux 
ordinateurs, les notions essentielles de 
représentation interne des informations, 
les éléments de iogique des circuits et les 





mémoires (ainsi que des notions sur les 
structures de données). Un chapitre est 
consacré à la structure et surtout au 
fonctionnement de l'unité centrale. Des 
éléments de programmation en langage 
machine sont donnés. lis permettent une 
meilleure compréhension des notions 
d'adressage et des techniques 
d'amélioration des performances. Dans 
le chapitre suivant ce sont les 
entrées/sorties et les interruptions qui 
sont traitées. Les derniers chapitres sont 
consacrés respectivement aux systèmes 
d'exploitation et de gestion des fichiers, à 
la technologie des circuits intégrés et 
enfin à la télématique et aux réseaux. Il 
est tentant de dire qu'il faudrait que tous 
ceux qui prétendent faire de 
l'informatique aient un niveau de 
connaissances techniques équivalent au 
contenu de ce livre. En tout cas, il faut 
recommander cet ouvrage pour ses 
qualités pédagogiques et sa précision 
technique. Bien qu'accessible au plus 
grand public, ce livre est indispensable 
aux étudiants de premier cycle ou du 
CNAM, aux stagiaires de formation 
continue. Il constitue l'un des ouvrages 
de base d'une bonne bibliographie 
informatique. 


CEDIC/NATHAN 


Exercices de Basic 
C. DELANNOY 


Apprendre Basic, c'est non seuiement 
avoir une vue claire des instructions 
disponibles mais surtout c'est parvenir à 
mener à bien un projet de programme 
avec toutes les étapes que cela peut 
comporter. Dans ce livre, l'auteur 
propose une série d'exercices très 
progressifs pour faire acquérir au lecteur 
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Chuce 





de bonnes habitudes de méthode et de 
réflexion. Pour cela l'accent est mis sur 
l'importance de la spécification (exacte) 
du problème, la compréhension totale de 
ce qui est demandé et l'ergonomie 
d'utilisation pour limiter les erreurs 
d'emploi. 

Chaque chapitre présente un thème 
nouveau (listes, hasard, chaînes, 
algorithmes numériques, etc.). Le dernier 
chapitre regroupe plusieurs exercices de 
synthèse. Pour chaque exercice la 
présentation met en avant l'exposé du 
problème avec les données, les résultats 
et un exemple, des aides, l'analyse et le 
programme. À cela s'ajoutent la tabie des 
variables et une discussion du problème 
et de ses aspects méthodologiques. 

Tout ce livre montre, par l'exemple, que 
la programmation c'est d'abord une 
affaire de réflexion et de méthode 
d'analyse. La manière de présenter les 
exercices constitue un bon guide de 
réalisation complète d'un projet de 
programmation. 


EYROLLES 


Le crayon optique 
ef les manettes 
de jeu 

M. BUSSAC et O. ROZENKRANC 


Dans la série “ Je pratique l'informatique” 
destinée aux 10/15 ans, voici un petit 
recueil qui présente des emplois du 
crayon optique et des manettes de jeu 
sur micros Thomson. Ces deux 
périphériques sont d'un usage simple et 
parfaitement facile. || faut simplement 
prévoir leur emploi dans les 
programmes. On trouve dans ce livret 
une série de programmes de jeux qui 
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mettent en évidence les instructions 
utilisables : manipulations et effets 
graphiques, création d'objets animés. En 
tout, treize programmes qui couvrent 
l'essentiel de ce qu'il faut savoir pour 
bien utiliser et s'amuser avec crayon 
optique et manettes. 


NATHAN CEDIC 





Répertoire mondial 


des Basic 
J, BENARD 


Pas moins de 450 pages pour ce 
dictionnaire des instructions Basic. Il est 
vrai que l’absence de normes a provoqué 
l'apparition Sauvage d'un nombre 
considérable de dialectes du Basic. Ceci 
pose bien des difficultés à la fois pour 
celui qui développe des applications 
portables et l'utilisateur qui ne s'y 
retrouve pas toujours d'une machine à 
l’autre. Dans ce livre, qui couvre là 
plupart des machines, on trouve le mode 
d'emploi des instructions par micro, les 
ordres qui correspondent à un effet 
recherché et aussi les pièges d'un même 
mot-clé sur différentes machines. Ce 
sont ainsi vingt-quatre versions de Basic 
qui sont étudiées, disséquées et 
comparées. Evidemment cet outil est 
d'abord destiné à ceux qui programment 
intensivement et qui devront prévoir 
plusieurs machines d'accueil pour leurs 
programmes. Ceci représente un gros 
travail de comparaison et ce guide 
pouura rendre de sérieux services. 
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Systèmes experts : 
Méthodes et Outils 


J.-N. CHATAIN et À. DUSSAUCHOY 


On peut désormais presque parler de 
mode des systèmes experts et ceci sans 
trop savoir si ce succès est dû à un terme 
flatteur où à un besoin réel. En tout cas 
le phénomène est enclenché et la rapidité 
avec laquelle se diffuse cette nouvelle 
méthodologie oblige à faire le point sur 
les différents acteurs, fournisseurs et 
outils des systèmes experts. Cet ouvrage 
arrive donc à point. 

Il couvre bien des aspects et notamment 
il fait le point sur les principes de base, le 
diagnostic par système expert et les 
outils de développement de système 
expert. Pour cela il a été conçu en trois 
parties. La première partie reprend les 
bases indispensables pour mieux 
comprendre l'architecture et la 
méthodologie de construction des SE. 
Dans cette partie est abordée 
notamment le problème central de 
représentation des connaissances mais 
aussi les différents types de SE et leur 
construction. La présentation du fameux 
MYCIN et de quelques applications 
complète cette partie. 

La deuxième partie est entièrement 
consacrée au diagnostic et à son 
approche par les systèmes experts. Il est 
rappelé que le diagnostic est un acte 





intelligent par excellence puisqu'il s'agit 
de trouver les dysfonctionnements et 
parfois leur cause. Dans cette partie sont 
présentées les deux approches de 
représentation des connaissances, dites 
de surface (relations entre symptômes et 
pannes) ou profondes (modélisation de 
comportement). Plusieurs exemples 
d'applications sont présentés. 

La dernière partie est consacrée aux 
outils d'aide au développement de 
systèmes experts. Elle est certainement 
la plus originale de l'ouvrage car le choix 
des outils détermine une bonne part de * 
la réalisation d'un SE et le nombre de ces 
outils ne fait que croître. Là le livre 
devient un guide indispensable car il 
présente les produits, les prix, les 
machines d'accueil et les principales 
caractéristiques. Une classification des 
outils et des détails de présentation 
constitue un chapitre entier. Enfin trois 
annexes (organismes, bibliographie 
commentée et lexique) terminent ce 
livre. Ce véritable guide sera d'une aide 
précieuse aussi bien aux étudiants qu'aux 
professionnels intéressés ou impliqués 
par la construction des systèmes experts. 
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GAGNEZ L'ACTION 


Pour recevoir de plus amples informations, 


envoyez le bon ci-joint : 
NOM : 
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Partez à la recherche des saphirs dans la 
mine désaffectée que vous a indiqué un 
vieux sage. Mais, attention, les monstres 
règnent en maître dans les galeries. Plus 
de 50 salles, un éditeur incorporé : un jeu 
passionnant. 

(Disponible sur Thomson, K7, D.) 


Cochez la case du logiciel qui vous intéresse le 
Plus : 


O Dieux du stade 

D Saphir 

0 Mine aux diamants 
O TNT 


Un tirage au sort peut vous le faire gagner. 


ETAT DE 











LE CHOK DE LA MICRO 


Au sommaire : 


— Pour les chokés THOMSON : TEO 
Tout sur les informations, les bidouil- 
les et les programmes Thomson. 

— Pour les chokés INFOGRAMES 


TATOU vous dira tout sur les astuces 
de puces, les nouveautés, les 
concours et sa célèbre BD. 


Pas un instant à perdre... 





Tapez : CHOK 


